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ABSTRACT 


A  suitable  three-dimensional  geometrical  description 
technique  and  two  computer  programs,  MAGIC  and  SAM-C,  were 
developed  and  demonstrated  for  application  to  the  computer 
analysis  of  both  the  nuclear  and  conventional  vulner¬ 
ability  of  armored  military  vehicles.  The  geometric 
technique  was  applied,  for  demonstration  purposes,  to  the 
M60A1  tank.  A  single  body  of  geometric  target  data  for 
the  M60A1  was  used  by  the  MAGIC  program  (Mathematical 
Applications  Group,  Inc.,  Code)  to  address  the  vulner¬ 
ability  of  the  tank  to  attack  from  any  attack  angle  by 
conventional  armor-defeating  projectile  systems,  and  by 
the  SAM-C  program  (Stochastic  Approximation  Method  - 
Combinatorial)  for  the  determination  of  internal  nuclear 
radiation  dose.  The  radiation  dose  (in  selected  target 
regions)  is  obtained  for  primary  neutrons,  primary 
gammas,  and  for  secondary  gammas  produced  by  neutron 
interactions  occurring  either  outside  or  within  the 
vehicle.  The  critical  feature  of  the  effort  is  the 
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successful  development  of  a  technique  which  inputs  the 
engineering  design  detail  and  allows  for  the  subsequent 
vulnerability  determination  for  either  nuclear  or  con¬ 
ventional  combat  weapons. 

The  two  programs,  MAGIC  and  SAM-C,  are  currently 
operational  on  both  the  CDC-6600  and  BRL-BRLESC  computers. 
Both  programs  are  written  in  FORTRAN. 


FOREWORD 


The  Aberdeen  Ballistic  Research  Laboratory  has,  as 
one  of  its  missions,  the  evaluation  of  the  vulnerability 
of  armored  vehicles  to  attack  by  both  nuclear  and  conven¬ 
tional  armor-defeating  weapons.  Prior  to  the  present 
effort,  independent  computer  programs  had  been  developed 
to  assist  in  such  evaluations. 

On  the  one  hand,  there  was  available  the  UNC-SAM 
Program  (United  Nuclear  Corporation  -  Stochastic  Approx¬ 
imation  Method)  for  the  determination  of  nuclear  flux  (and 
subsequently  dose)  through  the  use  of  the  Monte  Carlo 
technique.  This  program,  given  a  geometrical  and  nuclear 
description  of  the  target  vehicle  and  surrounding  atmos¬ 
phere  and  ground  environment,  could  calculate  radiation 
fluxes  and  doses  at  specified  locations  inside  and  outside 
the  vehicle.  The  geometric  description,  however,  was 
restricted  to  an  assembly  of  nonintersecting  bodies  and 
was  only  an  approximate  representation  of  the  true  geometry. 
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On  the  other  hand,  there  were  available  the  ASEB  pro¬ 
grams  (Armored  Systems  Evaluation  Branch)  for  the  deter¬ 
mination  of  target  hit  and  target  kill  for  armor-defeating 
direct  fire  weapon  systems.  These  ASEB  codes  require  that, 
for  any  given  direction  of  attack,  the  vehicle  be  described 
in  terms  of  the  ordered  sequence  and  thickness  of  material 
layers  which  a  projectile  would  encounter  in  penetrating 
the  vehicle.  This  description  was  established  for  each  of 
a  number  of  rectangular  prisms  defined  by  projecting  a 
rectangular  grid  through  the  vehicle  along  the  direction 
of  attack.  With  such  detailed  knowledge  of  both  the 
sequential  composition  of  the  target  armor  and  vulnerable 
components,  as  well  as  the  positions  of  this  array  within 
the  target  plane,  the  ASEB  codes  would  compute  the  effec¬ 
tiveness  of  a  weapon  system.  This  effectiveness,  a  function 
of  aim  point  and  impact  dispersion  at  the  target  plane, 
was  given  in  terms  of  target  hit,  mobility  kill,  firepower 
kill,  etc. 

The  restrictive  portion  of  the  analysis  of  conventional 
projectiles  was  preparation  of  the  target  descriptive  data. 
These  data  were  prepared  manually  by  working  directly  with 
the  engineering  drawings  for  each  attack  azimuth  of  inter¬ 
est.  This  manual  approach  was  readily  applied  to  attack 
azimuths  of  0°  and  90°,  or  to  direct  overhead  attack,  since 
appropriate  engineering  drawing  views  were  usually  avail¬ 
able.  Securing  target  data  for  other  attack  azimuths  such 
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as  30°  and  60°  was  considerably  more  difficult.  If  attack 
analysis  was  desired  where  both  azimuth  and  elevation 
angles  were  other  than  along  an  axis  common  to  the  engi¬ 
neering  drawings,  the  preparation  of  the  required  target 
data  was  possible  but  realistically  impractical. 

It  was  obvious,  therefore,  that  if  the  ASEB  codes 
were  to  be  used  to  any  greater  extent,  a  computerized 
method  would  have  to  be  developed  to  provide  the  necessary 
target  input  data  for  any  desired  angle  of  attack.  Fur¬ 
ther,  since  the  nuclear  analysis  code  also  required 
detailed  target  geometry  input  for  accurate  results,  it 
was  felt  that  the  geometry  description  technique  should 
be  compatible  for  both  nuclear  and  conventional  weapon 
analysis.  In  this  way  a  single  target  description  would 
serve  both  requirements.  However,  it  was  not  at  all 
obvious  how  one  would  either  adequately  describe  a  com¬ 
plicated  target  or  generate  the  required  sequential  data 
from  such  geometric  target  data.  One  fact  that  had  been 
established  by  experience  was  that  the  use  of  independent 
(nonoverlapping)  geometric  figures  would  necessarily 
result  in  an  approximation  of  actual  target  geometry  that 
would  be  of  marginal  usefulness. 

Recognizing  the  need,  therefore,  for  a  computerized 
method  to  achieve  target  data  for  the  ASEB  conventional 
projectile  lethality  codes,  and  the  need  to  input  an 
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accurate  target  description  for  nuclear  analysis,  it  was 
decided  to  support  an  effort  in  this  direction.  The  MAGI 
"combinatorial  geometry"  technique  was  selected  for  devel¬ 
opment  because  it  permitted  the  combination  of  geometric 
figures  to  form  many  practical  geometric  figures  of  inter¬ 
est,  and  the  geometry  developed  could  be  used  for  both 
nuclear  and  conventional  weapon  analysis. 

The  end  objective  was  to  achieve  development  of  a 
practical  technique  and  realize  actual  results  for  an  ac¬ 
tual  target.  The  M60A1  tank  was  chosen  as  the  target  to 
be  described  and  the  specific  results  to  be  obtained  were 
(1)  the  sequential  array  data  required  by  the  ASEB  con¬ 
ventional  projectile  lethality  codes  based  on  any  angle 
of  attack  specified,  and  (2)  the  actual  nuclear  dose 
values  within  the  tank.  These  objectives  were  met. 

The  "combinatorial  geometry"  technique  was  developed 
and  the  computer  programs  prepared  and  tested.  These  are: 
MAGIC,  which  provides  the  sequential  target  data  for  the 
ASEB  codes;  and  SAM-C  which  computes  the  nuclear  dose. 

The  M60A1  tank  was  described  and  read  into  the  computer. 
Several  target  sequential  data  arrays  were  prepared,  and 
nuclear  dose  was  computed  with  the  vehicle  at  various 
ranges  from  a  specified  positioned  source. 

The  report  describes  the  development  work  accomplished 
by  MAGI  during  the  contractual  period.  In  addition  to 
theoretical  discussions  regarding  the  various  programs  de- 
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veloped,  it  can  also  serve  as  a  programn er ' s  guide  for 
those  who  may  want  to  implement  the  programs  on  their  own 
computer  for  analysis  of  other  target  configurations. 
Although  the  report  describes  the  work  accomplished,  it 
intentionally  does  not  deal  at  any  great  length  with  the 
many  possible  applications  to  studies  of  the  effectiveness 
of  other  weapon  systems.  Suffice  it  to  say,  the  objectives 
of  the  work  were  met  and  a  number  of  tools  now  exist  that 
should  materially  assist  those  groups  who  are  performing 
design,  vulnerability,  and  effectiveness  analyses  of  weapon 
systems . 


Richard  C.  Hoyt 
Technical  Supervisor 
Ballistic  Research  Laboratory 
Aberdeen,  Maryland 
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INTRODUCTION  AND  DESCRIPTION  OF  TECHNICAL  EFFORT 


1 . 1  INTRODUCTION 

1.1.1  _ Scope 

This  report  describes  the  development  of  a  significant 
new  geometric  technique  -  the  "combinatorial  geometry" 
technique  -  for  addressing  the  nuclear  and  conventional 
vulnerability  of  armored  vehicles.  It  makes  possible  the 
computer  representation  of  complicated  three-dimensional 
objects  in  any  required  degree  of  detail.  In  addition,  the 
report  provides  a  detailed  discussion  of  the  two  computer 
programs  for  which  this  technique  was  developed.  The 
first,  SAM-C,  is  a  nuclear  dose  analysis  code  which  com¬ 
bines  the  latest  advances  in  Monte  Carlo  importance  sampling 
techniques  and  detailed  basic  physical  data  capabilities 
with  this  new  combinatorial  geometry  technique.  The  second, 
MAGIC,  is  a  code  which  utilizes  this  new  technique  to  con¬ 
vert  geometric  and  functional  (e.g.,  armor,  road  wheel, 
etc.)  target  description  data  into  the  penetration  data 
(line-of-sight  thicknesses,  surface  obliquities,  etc.) 
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required  as  input  to  other  programs  which  evaluate  the 
vulnerability  of  the  target  when  subjected  to  projectile 
attack . 


1.1.2 _ Readership 

This  report  is  directed  to  three  distinct  categories 
of  readers: 


1.1.3 


The  weapons  systems/operations  research 
analysts  who  are  constantly  searching  for 
improved  methods  and  techniques  applicable 
to  weapon  system  vulnerability  analysis. 

The  mathematician/physicist  methodologist 
who  must  find  ways  and  means  of  implementing 
and  understanding  the  new  techniques  and 
approaches . 

The  computer  programmers  and  system  analysts 
who  must  translate  the  concepts  of  the 
analysts  and  the  theorems  of  the  methodologists 
into  workable  production  computer  codes . 
Organization 


In  order  to  accomplish  the  objectives  set  forth  in 
Section  1.1.1,  the  body  of  this  report  is  divided  into 
three  primary  sections.  Section  2  presents  an  introduction 
to  the  basic  geometric  technique  common  to  both  the  SAM-C 
and  MAGIC  programs.  Section  3  presents  further  information 
on  this  combinatorial  geometry  technique  and  indicates  how, 
through  the  addition  of  certain  input  data,  a  computer 
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program  applicable  to  projectile  vulnerability  analysis 
results.  Section  4  discusses  the  implementation  of  this 
technique  in  a  Monte  Carlo  radiation  transport  code  to 
evaluate  nuclear  dose  levels. 

Brief  individual  discussions  of  combinatorial  geom¬ 
etry  and  its  application  to  MAGIC  and  SAM-C  follow. 

1.2  DESCRIPTION  OF  TECHNICAL  EFFORT 
1.2.1 _ Combinatorial  Geometry 

Combinatorial  geometry  is  a  new  and  significant  ad¬ 
vance  in  the  state-of-the-art  of  representing  -  in  a  com¬ 
puter  -  a  complex  three-dimensional  structure.  In  effect, 
one  represents  a  structure  such  as  a  tank  in  terms  of 
sums,  differences,  and  intersections  of  relatively  simple 
bodies  such  as  spheres,  cylinders,  etc.  (described  in 
Section  2) .  The  input  for  such  a  description  consists  of 
the  geometric  location  of  the  simple  bodies  and  their 
dimensions,  followed  by  a  region  definition  table  consist¬ 
ing  of  a  series  of  equations  defining  each  particular 
region  of  the  structure  in  terms  of  the  basic  bodies.  For 
example,  if  the  total  structure  is  a  tank,  then  one  region 
would  be  the  gun  barrel,  which  might  be  represented  as  the 
material  located  between  two  concentric  cylinders. 

When  the  geometrical  description  is  completed,  a 
material  composition  must  be  assigned  to  each  region  (e.g., 
steel,  copper),  and  each  region  must  be  identified  (e.g., 
gun,  driver,  etc.). 
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Thus,  one  can  achieve  a  total  geometric,  material,  and 
functional  description  of  the  vehicle  as  a  three-dimen¬ 
sional  object.  It  should  be  noted  that  this  description 
can  be  as  detailed  as  desired  by  including,  for  example, 
individual  shells,  motor  components,  etc.,  or  it  may  be 
quite  rudimentary  depending  upon  the  application.  At  any 
rate  this  description,  once  prepared  for  the  computer,  can 
be  used  for  a  variety  of  studies. 

Under  the  current  contractual  effort,  the  combina¬ 
torial  geometry  technique  has  been  applied  to  the  evalua¬ 
tion  of  vehicle  vulnerability  to  conventional  weapons  and 
to  the  evaluation  of  nuclear  radiation.  The  programs  have 
been  thoroughly  tested  and  applied  to  armored  vehicles  of 
current  interest  to  the  U.  S.  Army.  The  programs  are 
operational  on  the  Aberdeen  B RLE SC  and  the  NYU  CDC-6600 
computers . 

1.2.2 _ Application  of  Combinatorial  Geometry  to  Con¬ 

ventional  Vulnerability  (MAGIC  Program) 

An  evaluation  of  the  vulnerability  of  a  vehicle  under 
attack  by  a  particular  weapon  is  an  extremely  complex  task. 
One  must  first  establish  the  various  possible  types  of 
"kill"  as,  for  example,  "firepower  kill,"  "mobility  kill," 
or  "total  kill,"  etc.  Each  individual  component  of  the 
target  must  be  assessed  to  determine  its  importance  to  each 
type  of  kill.  For  example,  destruction  of  a  tank  trans¬ 
mission  will  result  in  mobility  kill  but  may  have  no  effect 
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on  firepower  kill. 

The  probability  of  destruction  of  a  "vulnerable" 
component  (a  component  important  to  one  of  the  kills)  must 
be  determined  as  a  function  of  the  properties  of  the  in¬ 
cident  penetration.  Properties  such  as  residual  energy 
and  mass  are  important  parameters  in  such  an  assessment. 

The  MAGIC  program,  discussed  in  detail  in  Section  3,  has 
been  designed  to  work  in  association  with  existing  ASEB 
vulnerability  programs  at  Ballistic  Research  Laboratories 
to  perform  the  assessment  of  vehicle  vulnerability. 

The  first  task  is  to  set  up  the  geometrical  des¬ 
cription  of  the  vehicle  in  combinatorial  geometry  input 
form.  These  data  are  entered  into  the  MAGIC  program,  say, 
via  punched  cards.  Subsequently,  the  vulnerability  analyst 
selects  the  attack  direction.  Since  the  description  is 
truly  three  dimensional,  the  attack  direction  need  only 
be  specified  in  terms  of  an  azimuth  and  elevation  angle. 

No  modification  of  the  vehicle  description  is  necessary 
for  different  angles  of  attack.  The  program  sets  up  an 
attack  plane  perpendicular  to  the  attack  direction  and 
proceeds  to  shoot  rays  through  the  attack  plane,  with  each 
ray  directed  parallel  to  the  attack  direction.  The  rays 
are  started  within  rectangular  areas  on  the  attack  plane. 
The  size  of  the  attack  plane  is  specified  as  input.  On 
hitting  the  target  vehicle,  the  angle  of  incidence,  nature 
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of  region  hit,  and  normal  and  line-of-sight  thickness  of 
the  region  hit  are  determined.  The  ray  continues  through 
the  vehicle,  determining  the  same  information  for  each 
region  it  traverses,  and  is  finally  terminated  on  leaving 
the  far  side  of  the  vehicle.  The  data,  thus  generated, 
are  put  out  in  printed  and  punched  card  form  for  use  in  a 
subsequent  ASEB  program.  This  latter  program  calculates 
not  only  the  residual  penetration  energy  after  encountering 
a  region  with  the  defining  features  established  by  the 
MAGIC  program,  but,  additionally,  the  significance  of  the 
encounter  with  this  defined  region  in  terms  of  the  prob¬ 
ability  of  the  various  kills  in  question.  If  there  is 
residual  energy,  this  process  is  continued  with  the  next 
region  and  so  on.  Thus,  the  combination  of  the  MAGIC  and 
ASEB  programs  forms  a  complete  mathematical  framework  in 
which  one  can  accommodate  all  the  geometrical  and  material 
information  concerning  the  vehicle  as  well  as  the  pene¬ 
tration  and  lethality  properties  of  the  projectile.  Since 
each  program  runs  several  minutes  on  a  large  computer,  a 
number  of  design  parameters  can  be  investigated.. 

1.2.3 _ Application  of  Combinatorial  Geometry  to  Nuclear 

Analysis  (SAM-C  Program) 

In  addition  to  attack  by  conventional  weapons,  modern 
vehicles  may  be  exposed  to  attack  by  nuclear  weapons. 
Generally  speaking,  the  crew  of  a  vehicle  is  more  sensitive 
to  radiation  than  are  any  of  the  instruments  or  equipment. 


6 


Thus,  the  primary  problem  is  to  establish  the  radiation 
levels  to  which  the  crew  is  exposed. 

A  number  of  calculational  techniques  exist  for  deter¬ 
mining  the  radiation  dose  in  free  air  or  at  the  air-earth 
interface.  However,  until  the  development  of  the  combina¬ 
torial  geometry  technique  and  its  incorporation  into  the 
SAM-C  program,  as  discussed  in  Section  4,  no  technique 
existed  for  performing  detailed  calculations  of  the  trans¬ 
port  of  radiation  through  an  accurate  model  of  both  the 
vehicle  and  its  environment. 

Exactly  the  same  geometrical  input  data  used  in  the 
MAGIC  program  is  used  in  the  SAM-C  program.  This  program, 
using  Monte  Carlo  techniques,  simulates  the  actual  flight 
of  radiation,  from  its  source  (burst  point,  for  instance) 
through  the  environment  to  the  dose  region.  The  following 
interactions  of  radiation  with  matter  are  treated: 

1 .  Gamma  Rays 

a.  Compton  scattering 

b.  Absorption  by  the  photoelectric 
and  pair  production  processes 

2.  Neutrons 

a.  Inelastic  scattering 
Discrete  level 


Continuum 


b.  Elastic  scattering 
Isotropic 
Anisotropic 

c.  Absorption. 

The  program  also  can  treat  time-dependent  problems 
and  can  be  used  to  evaluate  transient  radiation  effects. 
The  SAM-C  program  has  been  applied  very  successfully  to 
studies  of  the  transport  of  weapon  radiation  through  the 
air  to  and  through  a  detailed  combinatorial  geometry 
representation  of  an  M60  tank.  In  these  calculations, 
the  neutrons  were  followed  down  to  thermal  energies  and 
secondary  gamma-ray  production  in  the  tank  structure  and 
personnel  were  taken  into  account. 

1.3  EXTENSION  OF  TECHNICAL  EFFORT 

The  objectives  of  this  contract  effort  required  that 
specific  output  be  achieved  by  practical  means.  It  should 
be  noted  that  many  portions  of  the  MAGIC  and  SAM-C  pro¬ 
grams  have  not  yet  been  optimized  to  reduce  running  time, 
computer  memory  requirements ,  or  the  labor  required  to 
prepare  input.  This  aspect  of  the  effort  has  been  con¬ 
tinually  recognized  by  both  MAGI  and  the  Government,  but 
optimization  has  been  deferred  in  favor  of  producing  a 
working  practical  system.  Such  optimization  should  be 
pursued . 

It  is  now  obvious  that  once  the  geometric  description 
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has  been  prepared  it  can  be  used  in  a  variety  of  other 
studies  with  appropriate  programming.  For  example,  these 
are : 

1.  Evaluation  of  gamma  dose  in  vehicles 
traversing  fall  out  fields; 

2.  Center  of  gravity  and  moments  of 
inertia  determinations; 

3.  Graphic  display  of  the  geometric 
configuration; 

4 .  Evaluation  of  lethality  of  spall 
fragments  resulting  from  target 
penetration; 

5.  Evaluation  of  lethality  of  arbitrary 
bursts ; 

6.  Evaluation  of  shock  wave  effects 
on  radiation  dose. 
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2.  DESCRIPTION  OF  THE  COMBINATORIAL  GEOMETRY  TECHNIQUE 

In  order  to  perforin  computer  studies  concerning  a 
vehicle  one  must  first  be  able  to  prepare  a  mathematical 
model  of  the  vehicle,  and  its  environment.  The  combina¬ 
torial  geometry  technique  has  been  developed  to  permit  a 
model  to  be  produced  which  is  both  accurate  and  suitable 
for  a  ray-tracing  analysis  program.  The  latter  feature 
is  important  since  both  the  conventional  and  nuclear 
vulnerability  analysis  programs  involve  the  tracing  of  rays 
through  geometrical  models. 

In  effect  the  geometric  description  subdivides  the 
problem  space  into  unique  regions.  This  is  achieved  through 
the  use  of  nine  specific  geometric  bodies  (closed  surfaces) 
and  the  orderly  identification  of  the  combination  of  those 
bodies  which  define  a  region  (space  volume) .  The  bodies 
which  will  be  discussed  further  in  Input  Preparation  (Sec¬ 
tion  2.2)  are  as  follows: 

1.  Rectangular  Parallelepiped  (RPP) 
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2 .  Box 

3 .  Sphere 

4 .  Right  Circular  Cylinder 

5.  Right  Elliptical  Cylinder 

6 .  Truncated  Right  Angle  Cone 

7.  Ellipsoid 

8.  Right  Angle  Wedge 

9.  Arbitrary  Convex  Polyhedron  of 
four,  five  or  six  sides  (each  side 
having  three  or  four  vertices) . 

Except  for  the  RPP ' s ,  all  bodies  may  be  arbitrarily 
oriented  with  respect  to  the  x,  y,  z  coordinate  axes  used 
to  determine  the  space.  The  RPP ' s  are  special  bodies  used 
to  divide  the  overall  geometry  into  smaller  regions.  This 
reduces  the  time  required  in  ray  tracing  when  many  physical 
regions  are  present.  It  should  be  noted  that  the  sides  of 
an  RPP  must  be  parallel  to  the  coordinate  axes. 

2.1  REGION  DESCRIPTION  TECHNIQUE 

The  basic  technique  for  the  description  of  the  geom¬ 
etry  consists  of  defining  the  location  and  shape  of  the 
various  physical  regions  (wall,  equipment,  etc.)  in  terms 
of  the  intersections  and  unions  of  the  volumes  contained 
in  a  set  of  simple  bodies.  A  special  operator  notation 
involving  the  symbols  (  +  ) ,  (-) ,  and  (OR)  is  used  to  des¬ 

cribe  the  intersections  and  unions.  These  symbols  are 
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D on,>+  wjt  (^t  ilfPJe  f  aooy^  ) 

used  by  the  program  to  construct  tables  used  in  the  ray¬ 
tracing  portion  of  the  problem. 

If  a  body  appears  in  a  region  description  with  a  (+) 
operator,  it  means  that  the  region  being  described  is 
wholly  contained  in  the  body. 

If  a  body  appears  in  a  region  description  with  a  (-) 
operator,  it  means  that  the  region  being  described  is 
wholly  outside  the  body. 

If  the  body  appears  with  an  (OR)  operator,  it  means 
that  the  region  being  described  includes  all  points  in  the 
body.  In  some  instances,  a  region  may  be  described  in 
terms  of  subregions  lumped  together  by  (OR)  statements. 

The  technigue  of  describing  a  physical  region  is  best 
illustrated  by  an  example.  Consider  an  object  composed 
of  a  sphere  into  which  is  inserted  a  cylinder.  This  is 
shown  in  cross  section  in  Fig.  2.1(a). 

To  describe  the  object,  we  take  a  spherical  body 
penetrated  by  a  cylindrical  body  (Fig.  2.1(b)}.  Each  body 
is  numbered.  Consider  the  sphere  as  body  No.  1  and  the 
cylinder  as  body  No.  2.  If  the  materials  in  the  sphere 
and  cylinder  are  the  same,  then  they  can  be  considered  as 
one  physical  region,  say  region  100  {Fig.  2.1(c)}. 

The  description  of  region  100  would  be: 

100  =  (OR  1)  (OR  2) . 

This  means  that  a  point  is  in  region  100  if  it  is  either 
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Fig.  2.1  -  Regions  Produced  by  Intersections  and  Unions 

of  Sphere  and  Cylinder 
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inside  body  1  or  inside  body  2. 

If  different  materials  are  used  in  the  sphere  and 
cylinder,  then  the  sphere  with  a  cylindrical  hole  in  it 
would  be  given  a  different  region  number  (say  200)  from 
that  of  the  cylinder  (300)  . 

The  description  of  region  200  would  be  {Fig.  2.1(d)}: 

200  =  (  +  1)  (-2)  . 

This  means  that  points  in  region  200  are  all  those  points 
inside  body  1  which  are  not  inside  body  2. 

The  description  of  region  300  is  simple  {Fig.  2.1(e)}: 

300  =  (  +  2)  . 

That  is,  all  points  in  region  300  lie  inside  body  2. 

This  technique,  of  course,  can  be  applied  to  combi¬ 
nations  of  more  than  two  bodies  and  such  region  descrip¬ 
tions  could  conceivably  contain  a  long  string  of  (+) ,  (-) 

and  (OR)  operators.  The  important  thing  to  remember  is 
that  every  spatial  point  in  the  geometry  must  be  located 
in  one  and  only  one  region.  Further  examples  are  given 
in  Section  2.2.2. 

A  rule  of  construction  imposes  the  additional  restric¬ 
tion  that  region  descriptions  include  negation  (-)  of 
buttressing  surfaces  which  are  not  otherwise  necessary  to 
the  logical  description  of  the  region.  That  is,  if  boxes 
2  and  3  are  in  contact,  as  on  the  following  page,  the 
description  of  region  200  must  be  200  =  (+2)  (-3) .  Region 
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300  should  be  defined  as  300  =  (+3)  (-2) , 


100 


1 


The  user  of  the  program  will  specify  the  geometry  by 
establishing  two  tables.  The  first  table  will  describe 
the  type  and  location  of  the  set  of  bodies  used  in  the 
geometrical  description.  The  second  table  will  identify 
the  physical  region  in  terms  of  these  bodies.  The  compu¬ 
ter  program  processes  these  tables  to  put  the  data  in  the 
form  required  for  ray  tracing.  All  of  the  space  must  be 
divided  into  regions,  and  once  again  no  point  may  be  in 
more  than  one  region. 
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2 . 2  INPUT  PREPARATION 


2.2.1 _ Description  of  Input  Parameters 

The  information  required  to  specify  each  type  of  body 
is  as  follows. 

1.  Rectangular  Parallelepiped  (RPP) 

\  '  , 

These  bodies  are  used  for  gross  subdivisions 
of  the  geometry  and  must  have  bounding  sur¬ 
faces  parallel  to  the  coordinate  axes.  The 
entire  geometry  must  be  enclosed  in  an  RPP. 
Specify  the  maximum  and  minimum  values  of 
the  x,  y,  and  z  coordinates  which  bound  the 
parallelepiped . 


Z 


Xmax 
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2.  Box  (BOX) 

Specify  the  vertex  V  at  one  of  the  corners 
by  giving  its  (x,y,z)  coordinates.  Specify 
a  set  of  three  mutually  perpendicular  vectors, 
ai,  representing  the  height,  width,  and 
length  of  the  box,  respectively.  That  is, 
the  x,y,  and  z  components  of  the  height, 
width,  and  length  vectors  are  given. 


Vx, Vy , Vz 


3.  Sphere  (SPH) 

Specify  the  vertex  V  at  the  center  and  the 


scalar,  R,  denoting  the  radius. 
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Right  Circular  Cylinder  (RCC) 

Specify  the  vertex  V  at  the  center  of 
one  base,  a  height  vector,  H,  expressed 
in  terms  of  its  x,  y,  and  z  components, 
and  a  scalar,  R,  denoting  the  base 
radius . 
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5.  Right  Elliptical  Cylinder  (REC) 

Specify  coordinates  of  the  center  of 
the  base  ellipse,  a  height  vector, 
and  two  vectors  in  the  plane  of  the 
base  defining  the  major  and  minor 


axes . 


6. 


Truncated  Right  Angle  Cone  (TRC) 
Specify  a  vertex  V  at  the  center  of 
the  lower  base,  the  height  vector, 
H,  expressed  in  terms  of  its  x,  y, 
z  components,  and  two  scalars, 
and  R2/  denoting  the  radii  of  the 
lower  and  upper  bases. 
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9.  Arbitrary  Polyhedron  (ARB) 

Assign  an  ordinal  number  (1  to  8) 
to  each  vertex.  For  each  vertex, 
give  the  x,  y,  z  coordinates.  For 
each  side  of  the  figure  list  the 
ordinal  vertex  numbers .  The  ver¬ 
tices  and  side  descriptions  may 
be  given  in  any  order.  An  example 
is  given  later. 


Z7 
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2.2.2 _ Examples  of  Region  Descriptions 

Some  representative  geometries  and  their  input  des¬ 
criptions  are  shown  below. 

Example  1  -  Two  Spheres  Within  an  RPP  (See  Fig.  2.2) 

The  body  input  table  is  shown  below. 

TABLE  I  -  BODY  INPUT  DESCRIPTION 
Body  Type  of  Data  Required 

1  List  the  six  bounding  coordinate  values 

(xmin'  xmaxi  Ymin»  Ymax'  zmin»  zmax) 

% 

'  |  ,  *  » 

2  List  the  vertex  and  radius  of  sphere  2 

3  List  the  vertex  and  radius  of  sphere  3 

One  possible  region  input  table  is  shown  below. 

TABLE  II  -  REGION  DESCRIPTION 
Region  Input 

100  (+1)  (-2)  (-3)  (Region  100  is  composed 

of  all  points  interior  to  RPP  No.  1  and 
exterior  to  spheres  2  and  3) 

200  (+3)  (-2)  (Region  200  is  composed  of 

all  points  interior  to  sphere  3  and 
exterior  to  sphere  2) 

300  (+2)  (+3)  (Region  300  is  composed  of 

all  points  which  are  in  sphere  2  and 
are  also  in  sphere  3) 
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Region 

400 

500 


Input 

(+2)  (-3)  (Region  400  is  composed  of  all 

points  interior  to  sphere  2  and  exterior 
to  sphere  3) 

(OR  2)  (OR  3)  (If  desired,  one  region, 
the  total  of  regions  200,  300,  and  400, 
can  be  defined  as  region  500) 
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Example  2  -  Cylinder  Divided  into  Two  Regions  by  a  Box 
and  with  a  Sphere  at  One  End  (See  Fig.  2.3)~ 

TABLE  I  -  BODY  INPUT  DESCRIPTION 


Body  Type  of  Data  Required 

1  List  the  six  bounding  coordinates 
of  the  RPP 

2  List  the  vertex,  radius,  and  height 
vector  of  cylinder 

3  List  center  and  radius  of  sphere 

4  List  coordinates  of  one  corner  and 
components  of  three  vectors  repre¬ 
senting  sides  of  box 

The  region  input  is  as  follows. 

TABLE  II  -  REGION  DESCRIPTION 
Region  Input 

100  (+1)  (-2)  (-3)  (All  points  interior 

to  the  RPP  and  exterior  to  the  cylinder 
and  sphere.  Note  that  region  100  in¬ 
cludes  all  of  the  space  contained  inside 
body  4,  except  that  portion  inside  cyl¬ 
inder  2.  This  space  can  be  assigned  a 
special  region  number,  if  desired.  If, 
as  in  this  example,  it  is  not  desired, 
it  is  not  necessary) 

200  (+2)  (-4)  (All  points  interior  to  the 

cylinder,  and  outside  the  box) 
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Region 

300 


400 


Input 

(+3)  (-2)  (All  points  interior  to  the 

sphere  and  external  to  the  cylinder) 
(+2)  (+4)  (All  points  interior  to  the 

cylinder  and  also  inside  the  box) 
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2.3  -  Regions  Produced  by  Intersections  and  Unions 
of  Sphere,  Circular  Cylinder,  and  Box 


Example  3  -  Multiple  Region  Capability  -  Cylinder  Con¬ 
taining  Two  Spheres,  All  Inside  an  RPP  (See  Fig.  2.4) 


Body 

1 

2 

3 

4 

Region 

100 

200 

300 


TABLE  I  -  BODY  INPUT  DESCRIPTION 
Type  of  Data  Required 
List  RPP  data 
List  cylinder  input 
List  sphere  input 
List  sphere  input 

TABLE  II  -  REGION  DESCRIPTION 
Input 

(+1)  (-2) 

(OR  3)  (OR  4)  (All  points  interior 
to  3  or  4 ) 

(+2)  (-3)  (-4)  (All  points  in  the 

cylinder  but  not  in  the  spheres) 
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Fig.  2.4  -  Example  of  Physical  Region  Produced  from 
Unconnected  Regions  Using  "OR"  Statement 


2.2.3 _ Card  Input  Formats 

The  following  punched  cards  are  needed  to  describe  the 
geometry  and  must  appear  in  the  order  in  which  they  are 
described  below. 

1 .  Comment  Card 

This  card  contains  a  60-column  alphanumeric  title  of 
the  problem  and  will  appear  in  the  printed  output.  The 
input  format  is  (10A6) . 

2.  Quantity  and  Scaling  Card 

This  card  contains  seven  quantities,  the  first  six 
of  which  are  integers.  The  input  format  is  (6110 ,E10 . 2) . 
Quantity  Definition  Columns 

NRPP  The  number  of  RPP ' s  in  the  geometry  1-10 

NTRIP  The  number  of  triplets.  (A  triplet  11-20 

is  a  set  of  vector  coordinates  used 
in  the  description  of  more  than  one 
body . ) 

NSCAL  The  number  of  scalars.  (A  scalar  is  21-30 

a  number  used  in  the  description  of 
more  than  one  body . ) 

NBODY  The  number  of  bodies  in  the  geometry  31-40 

(not  counting  RPP's) 

NRMAX  The  number  of  regions  in  the  geometry  41-50 

IPRIN  Printing  option.  If  other  than  zero,  51-60 

the  geometry  data  stored  in  the 
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Quantity  Definition  Columns 

IPRIN  (MASTER-ASTER)  array  will  appear  in 

(con'd. ) 

the  printed  output.  If  zero,  this 
printing  will  be  suppressed. 

DIST  Scale  factor  (floating  point  format)  61-70 

If  0.0,  blank,  or  1.0,  the  scale 
factor  will  be  assumed  equal  to  1.0 
by  the  program.  Otherwise,  all 
dimensions  will  be  scaled  by  this 
quantity . 

3 .  RPP  Cards 

Give  one  card  for  each  RPP  (a  total  of  NRPP  cards) . 

The  card  form  is  as  follows.  Where  each  coordinate  defines 
one  of  the  bounding  planes  of  the  RPP,  the  input  format 
is  (6E12.6)  . 

Coordinate  Xmin  Xmax  Ymin  Ymax  Zmin  Zmax 

Columns  1-12  13-24  25-36  37-48  49-60  61-72 


4.  Triplet  Cards 

Give  one  card  for  each  triplet  (a  total  of  NTRIP 
cards) .  Each  card  contains  three  floating  point  numbers 
describing  the  (x,y,z)  components  of  the  triplet.  The 
input  format  is  (3E12.6)  starting  in  Column  1.  Omit  if 


NTRIP  =  0. 


S 
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5. 


Scalar  Cards 


Give  one  card  for  each  scalar  (a  total  of  NSCAL  cards) . 
‘Each  card  contains  one  floating  point  number  giving  the 
value  of  the  scalar.  The  input  format  is  (E12.6)  starting 
in  Column  1.  Omit  if  NSCAL  =  0. 

6.  Body  Cards 

The  computer  assigns  to  each  body  an  ordinal  number 
which  depends  on  the  order  in  which  the  body  cards  are  read 
in.  Therefore,  it  is  most  important  that  the  card  sequence 
match  the  numbering  sequence  used  in  the  region  descrip¬ 
tions.  Note  that  no  gaps  may  be  left  in  the  body  numbering 
sequence  and  that  the  RPP  numbers  must  precede  numbers 
assigned  to  all  other  bodies. 

The  data  describing  each  body  may  be  given  in  one  of 
two  formats.  The  first  of  these  is  in  more  general  use 
and  employs  floating  point  input  data  to  specify  the  actual 
location  and  dimensions  of  a  body.  This  format  will  be 
described  first. 

Format  1 

Eight  different  body  types  may  be  employed.  The 
standard  format  for  each  body  is  as  follows . 
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Columns  Input 

1  Any  nonblank  Hollerith  character  (directs 

the  code  that  floating  point  input  will 
be  used) 

2-3  Two  characters  of  arbitrary  Hollerith  data 

4-6  Three-letter  body  identifier.  Note  that 

the  numbers  assigned  to  RPP ' s  must  be 
lower  than  the  numbers  assigned  to  other 
bodies . 

7-10  Four  characters  of  arbitrary  Hollerith  data 

11-70  Divided  into  six  floating  point  fields  of 

10  columns  each.  Body  dimensions  are  given 
here . 

Table  2.1  describes  the  input  required  for  each  body.  The 
quantities  V,  H,  etc.,  were  defined  in  Section  2.2. 
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TABLE  2.1  -  INPUT  REQUIRED  FOR  EACH  BODY  TYPE 
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Face  Descriptions  (See  Note  on  following 

page) 


Note:  Each  of  the  six  faces  of  an  ARB  are  described  by  a 

four-digit  integer  giving  the  number  of  the  four  vertex 
points  at  the  corners.  The  point  numbers  for  each  face 
must  be  entered  in  either  clockwise  or  counterclockwise 
order.  The  format  is  6 (IX,  14)  starting  in  Column  11. 

An  example  is  shown  below. 
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FACE 

PTS 


|  16531  35841  4 2 7 8|  1672|  1342|  5678 


Format  2 

The  second  format  for  body  input  makes  reference  to 
previously  read  in  triplet  and  scalar  data.  This  format 
cannot  be  used  to  describe  the  ARB  body.  The  following 
input  format  is  used  for  all  other  bodies. 

Columns  Input 

1-3  Blank  (the  blank  in  Column  1  informs  the 

code  that  triplets  and  scalars  will  be 
referenced) 
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Columns 


Input 


4-6  Three-letter  body  identifier.  Note  that 

RPP  numbers  must  be  lower  than  those  for 
any  other  body. 

7-10  Blank 

11-70  Divided  into  six  integer  fields  of  10 

columns  each.  These  fields  contain  the 

/ 

identifying  number  of  the  triplet  or 
scalar  which  is  used  to  specify  a  par¬ 
ticular  input  quantity.  For  example, 
instead  of  specifying  Vx,  Vy,  Vz  for  the 
vertex  of  a  box,  as  in  Format  1,  the 
number  of  the  triplet  vector  having  those 
components  is  given.  The  number  of  the 
triplet  or  scalar  is  determined  by  its 
position  in  the  sequence  of  triplet  or 
scalar  identification  cards.  The  first 
triplet  defined  is  triplet  No.  1.  The 
first  scalar  defined  is  scalar  No.  1. 

It  should  be  noted  that  each  body  must  be  described 
completely  by  either  Format  1  0£  Format  2.  However,  dif¬ 


ferent  formats  may  be  employed  for  different  bodies  (the 
ARB  is  restricted  to  Format  1) . 


7.  Region  Cards 

Each  region  must  be  numbered  and  described  by  a 
logical  combination  of  the  bodies  which  make  up  that  re¬ 
gion.  A  total  of  NRMAX  regions  must  be  described.  Use 
as  many  cards  as  necessary  to  describe  each  region  and 
begin  each  region  on  a  new  card.  The  input  format,  des¬ 
cribed  below,  is  (15,  IX,  9 (A2 ,  15)). 

Input 

Region  Number. 

Blank. 

Insert  (OR)  if  needed.  Otherwise,  leave 
blank. 

Insert  either  (  +  )  or  (-)  . 

Number  of  body. 

Divided  into  eight  fields,  each  being 
similar  to  Columns  7-13.  The  first  two 
columns  of  each  field  are  reserved  for 
the  OR  operator.  The  third  column  is 
for  the  (+)  or  (-)  operator.  The  last 
four  columns  are  for  the  body  number. 

Use  as  many  cards  of  the  above  type  as  needed  to  com¬ 
plete  a  region  description,  but  leave  Columns  1-6  blank  on 
all  continuation  cards. 


Columns 

1-5 

6 

7-8 

9 

10-13 

14-69 
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The  last  region  description  card  must  be  followed  by 


a  card  containing 
the  code  that  all 


a  (-1)  in  Columns  4  and  5.  This  informs 
regions  have  been  described. 
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3 .  DESCRIPTION  OF  THE  MAGIC  PROGRAM  FOR  CONVENTIONAL 

PROJECTILE  ANALYSIS 

This  section  of  the  report  contains  a  complete  des¬ 
cription  of  the  MAGIC  program.  A  general  discussion  of  the 
program  (Section  3.1)  is  followed  by  a  description  of  the 
nongeometry  input  requirements  (Section  3.2).  The  geometry- 
dependent  data  have  been  discussed  in  Section  2. 

The  organization  of  the  MAGIC  program  and  detailed 
descriptions  of  the  subroutines  are  described  in  Section 
3.3.  The  output  of  the  program  is  also  discussed.  Sec¬ 
tion  3.4  will  discuss  the  actual  running  of  the  problem  on 
the  computer,  including  deck  configuration,  operating 
instructions,  and  tape  assignments.  A  sample  problem  is 
displayed  in  Section  3.5. 
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3.1  GENERAL  DISCUSSION 


The  MAGIC  program  accepts  as  input  a  vehicle  descrip¬ 
tion  (as  described  in  Section  2)  and  an  attack  plane  des¬ 
cription  (to  be  described  in  Section  3.2.2).  The  attack 
plane  defines  an  area  over  which  rays  are  to  be  "fired" 
toward  the  vehicle  and  the  direction  in  which  such  rays 
are  to  be  fired. 

The  output  for  each  ray  is  a  sequential  listing  of 
region  information  for  each  region  penetrated.  Each  region 
will  be  identified  by  a  region  identifier  as  described  in 
Section  3.2.1.  A  brief  list  of  the  items  that  are  output 
for  each  region  penetrated  by  the  ray  is  given  below: 


1. 

Region  identifier 

2. 

Region  thickness  (line-of- 

-sight  distance 

through  the  region) 

3. 

Normal  thickness 

4. 

Angle  of  obliquity 

5. 

Space  identification  (the 

type  of  space 

following  the  region) 

6. 

Thickness  of  the  space. 

The  actual  MAGIC  program  operates  in  two  phases.  First 
there  is  an  input  processing  phase  which  reads  and  processes 
both  the  geometry  (target  description)  and  nongeometry 
(attack  plane,  region  identification  codes,  etc.)  data.  The 
processing  consists  of  validity  checking  of  input  and  the 
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generation  of  data  arrays  to  be  used  by  the  second  phase. 

The  second  phase  performs  the  ray  tracing  and  gener¬ 
ates  the  sequential  region  data.  The  ray  tracing  is  per¬ 
formed  by  subroutines  TRACK  and  CALC  under  the  control  of 
subroutine  GRID.  The  routines  are  discussed  in  Section 
3.3.1. 

3.2  NONGEOMETRY  INPUT  REQUIREMENTS 

For  conventional  vehicle  vulnerability ,  each  material 
region  (not  an  air  region)  is  assigned  an  identification 
number  "ID".  Each  air  region  where  no  material  exists  is 
assigned  a  "space"  number.  Thus  each  geometric  region  has 
either  an  "ID"  number  or  a  "space"  number,  but  not  both. 

For  compatibility  with  the  ASEB  vulnerability  program, 
certain  "ID"  and  "space"  number  conventions  are  used.  All 
"ID"  numbers  are  three  digits  and  all  "space"  numbers  are 
two  digits.  In  addition,  the  geometric  region  containing 
both  the  attack  plane  and  the  vehicle  must  have  a  "space" 
code  of  01  and  no  "ID".  A  detailed  discussion  appears  in 
Section  3.2.1. 

Additional  input  is  required  to  establish  the  size  and 
orientation  of  the  attack  plane  with  respect  to  the  vehicle. 
A  discussion  appears  in  Section  3.2.2. 


3.2.1 _ Identification  and  Space  Code  Data 

The  identification  (ID)  and  space  code  data  are  used 
to  identify  the  regions  penetrated  by  each  ray.  These  ID 
and  space  numbers  will  be  punched  as  output  together  with 
region  thicknesses  and  other  data  generated  by  the  ray¬ 
tracing  procedure .  The  ID  and  space  numbers  serve  to 
identify  the  regions  for  subsequent  vulnerability  programs. 

An  example  of  the  relationship  between  the  original 
region  numbers  and  the  ID  and  space  numbers  will  illustrate 
the  usage. 

% 

Consider  the  following  simple  geometry  composed  of  a 
single  RPP,  three  boxes,  and  a  sphere. 
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The  region  data  for  the  preceding  configuration  is: 


Region  1  =  1-2-3-5 

Region  2  =  3-2  (Note  the  negation  of  body  with 

a  common  boundary) 


Region  3  =  2-3-5-4 
Region  4=4 
Region  5  =  5-2 


The  ID  and  space  data  table  is: 


Region 

ID 

Space 

1 

Blank 

01 

2 

100 

Blank 

3 

Blank 

02 

4 

200 

Blank 

5 

300 

Blank 

Thus  the  punched  output  would  appear  as : 

100  The  ID  number  of  Region  2 

D2  The  actual  distance  through  Region  2 

DN2  The  normal  distance  through  Region  2 

A 2  The  angle  of  obliquity 

2  The  space  identifier  of  Region  3 

DS  The  distance  through  the  space  up  to  Region  4 

200  The  ID  number  of  Region  4 

D4  The  actual  distance  through  Region  4 

DN4  The  normal  distance  through  Region  4 

A4  The  angle  of  obliquity 

2  The  space  identifier  of  Region  3 

DS'  The  distance  through  Region  3  up  to  Region  5 

300  The  ID  number  of  Region  5 

D5  The  actual  distance  through  Region  5 

DN5  The  normal  distance  through  Region  5 

Ac  The  angle  of  obliquity 

9  The  "9"  indicates  that  this  is  the  last 

space  and  that  nothing  else  follows.  The 
"9"  is  generated  by  the  program. 


47 


The  program  has  the  capability  of  combining  all  con¬ 
tiguous  regions  having  the  same  ID  or  space  number.  Thus, 
if  a  series  of  regions  all  having  the  same  ID  or  space 
number  are  penetrated  sequentially,  the  sum  of  the  indi¬ 
vidual  thicknesses  would  be  output  instead  of  the  individual 
thicknesses.  This  feature  is  useful  in  dividing  a  region 
containing  many  bodies  into  several  regions  each  composed 
of  fewer  bodies.  The  several  regions  then  would  have  the 
same  ID  number.  It  is  suggested  that  this  device  be 
employed  whenever  possible  because  it  will  shorten  the 
computation  time.  The  actual  card  input  formats  appear  in 
Section  3.2.3. 

3.2.2 _ Attack  Plane  Data 

The  attack  plane  is  the  plane  from  which  the  pene¬ 
trating  rays  will  emanate.  The  rays  will  be  orthogonal  to 
the  attack  plane.  The  plane  is  divided  into  a  two-dimen¬ 
sional  mesh  of  4-in.  cells.  The  following  data  are  required 
to  position  the  plane  in  space  and  to  establish  the  number 
of  4-in.  cells  to  be  processed. 

NX  The  number  of  4-in.  cells  in  the 

horizontal  direction. 

NY  The  number  of  4-in.  cells  in  the 

vertical  direction. 

IRSTART  The  number  of  the  region  (an  RPP) 
enclosing  the  vehicle. 

IENC  Same  as  IRSTART. 

A  An  azimuthal  angle. 

E  An  elevation  angle. 
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ENGTH  The  normal  distance  from  the  center 

of  the  vehicle  to  the  attack  plane. 

Xc 

Yc  The  coordinates  of  the  vehicle  center. 

Zc 

Fig.  3.1  will  illustrate  the  usage  of  the  above  items. 

For  the  purpose  of  clarity  the  attack  plane  is  shown 
as  a  slab  in  the  illustration.  The  NX  and  NY  define  the 
size  of  the  attack  plane  at  position  1.  The  angle  A 
measured  from  X  to  Y  in  a  counterclockwise  direction  spec¬ 
ifies  the  azimuthal  angle.  The  angled,  as  shown,  specifies 
the  elevation  angle.  The  distance  ENGTH  specifies  the 
distance,  from  vehicle  center,  of  the  plane.  As  shown  in 
the  figure  the  plane  is  first  rotated  in  the  X-Y  plane, 
resulting  in  position  2,  and  then  rotated  in  Z,  giving 
position  3,  the  actual  attack  position. 

Note  that  the  region  enclosing  both  the  attack  plane 
and  the  vehicle  must  be  large  enough  to  contain  both.  Note 
also  that  the  attack  plane  must  not  intersect  the  vehicle. 
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Fig.  3.1  -  Attack  Plane  Orientation 

9 
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3.2.3 


Card  Input  Formats 


A.  Region  Identifier  and  Space  Code 

This  part  of  the  input  has  exactly  NRMAX  cards.  Each 
card  corresponds  to  a  region  and  has  the  region  number  (an 
integer  ending  in  cc  10) ,  the  vehicle  component  identifi¬ 
cation  number  (ID)  ending  in  cc  20,  and  the  "space"  number 
ending  in  cc  30. 

In  addition  to  the  region  number,  identification  num¬ 
ber,  and  space  code,  cc  31-36  may  contain  alphanumeric  data 
which  will  appear  on  the  output  listing  only. 

B.  Aspect  Card 

This  card  contains  the  number  of  attack  planes  to  be 
processed.  It  should  be  an  integer  ending  in  cc  5. 

C.  Grid  Data  Set  Cards 

Each  attack  plane  requires  a  set  of  these  cards.  A 
set  can  be  either  two  or  three  cards. 

Card  One  (NX,  NY,  IRSTART,  IENC) 

NX  is  the  number  of  grid  squares  in  the  horizontal 
direction,  and  NY  is  the  number  of  grid  squares  in  the 
vertical  direction. 

IRSTART  and  IENC  are  both  equal  to  the  region  number 
of  the  enclosing  region.  The  format  for  the  four  items  is 


(4110) . 


Card  Two 


Angle  of  azimuth  and  elevation,  floating  point  numbers 
(degrees)  in  cc  1-12,  13-24,  respectively. 

ENGTH  the  normal  distance  from  vehicle  center  to  the 
attack  plane,  a  floating  point  number  in  cc  24-36. 

If  the  vehicle  center  is  not  0,  0,  0,  then  cc  37-48 
must  contain  a  nonzero  (any)  floating  point  number.  If  the 
center  is  at  zero,  leave  cc  37-48  blank. 

When  cc  37-48  is  nonzero,  then  card  three  (3)  is 
necessary.  It  contains  the  X,  Y,  Z  coordinates  of  the  ve¬ 
hicle  center,  punched  as  floating  point  numbers  in  cc  1-12, 
13-24,  25-36. 

3.3  ORGANIZATION  OF  THE  MAGIC  PROGRAM 

The  purpose  of  this  section  is  to  provide  the  reader 
with  a  basic  understanding  of  the  main  logic  flow  in  the 
conventional  vulnerability  code,  MAGIC.  The  MAGIC  routine 
directs  the  entire  calculation,  calling  on  various  subpro¬ 
grams  to  perform  specific  functions.  This  section,  then, 
is  concerned  primarily  with  the  basic  role  of  each  of  these 
subprograms  in  the  overall  scheme  (see  Fig.  3.2).  Detailed 
descriptions  of  these  routines,  intended  mainly  for  pro¬ 
grammers  wishing  to  implement  the  program  on  their  computer, 
can  be  found  in  Section  3.3.1. 
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At  the  start  of  a  problem,  MAGIC  first  initializes 
certain  system  constants  and  parameters.  Its  next  function 
is  to  store  the  data  describing  the  geometry  of  the  prob¬ 
lem.  A  card  is  read  containing  either  a  "1"  or  "blank"  in 
Column  10.  The  presence  of  a  1  informs  the  program  that 
the  geometry  data  have  already  been  processed  in  a  previous 
problem  and  are  available  on  input  tape  4.  This  tape  is 
then  read  into  the  computer  and  no  further  geometry  input 
data  processing  is  performed.  The  code  will  then  bypass 
all  of  the  operations  outlined  in  the  next  paragraph.  A 
blank,  however,  instructs  the  code  that  geometry  input  is 
to  be  read  from  cards  and  in  this  case  subroutine  GENI  is 
called . 

GENI  is  the  main  control  routine  for  geometry  input 
processing.  In  essence,  its  purpose  is  to  put  the  geometry 
data  into  the  form  required  by  subsequent  sections  of  the 
program.  Suitably  processed  data  are  stored  in  a  large 
array  called  the  MASTER-ASTER  array.  The  processing  of  the 
body  input  descriptions  are  accomplished  by  first  calling 
subroutine  RPPIN  to  read  and  process  the  RPP  data.  All 
other  bodies,  with  the  exception  of  the  arbitrary  poly¬ 
hedron  (ARB),  are  processed  directly  by  GENI.  Subroutine 
ALBERT  is  called  whenever  input  for  an  ARB  is  encountered. 
After  the  body  input  has  been  processed,  the  region  des¬ 
criptions  are  read  in  by  GENI  and  stored  in  the  MASTER- 
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ASTER  array-  This  completes  the  processing  of  geometry 
data.  Before  concluding  the  discussion  of  GENI,  however, 
mention  should  be  made  of  three  other  important  subroutines 
which  it  employs.  Subroutines  FLOCON  and  DIGCON  are  used 
to  convert  Hollerith  input  to  floating  point  and  integer 
formats,  respectively.  The  SEE3  routine  is  used  to  store 
triplet  and  scalar  data. 

Having  completed  all  geometry  input  processing,  con¬ 
trol  is  returned  to  MAGIC  and  a  binary  tape  (logical  4)  is 
written  containing  all  of  the  processed  geometry.  This 
tape  can  be  employed  in  subsequent  problems  which  require 
no  geometry  changes.  Having  written  this  tape,  MAGIC  reads 
the  region  identifiers  and  space  code  numbers  into  the 
MASTER-ASTER  array. 

At  this  point,  the  ray-tracing  phase  of  the  program  is 
initiated.  A  card  is  read  informing  MAGIC  of  the  number  of 
angles  of  attack  (i.e.,  aspect  angles)  to  be  treated.  All 
calculations  for  a  given  aspect  angle  are  directed  by  sub¬ 
routine  GRID,  and  MAGIC  will  continue  to  call  GRID  until 
all  angles  have  been  completed. 

GRID  is  the  main  control  program  of  the  ray-tracing 
segment  of  the  code.  It  reads  in  the  data  for  and  generates 
an  attack  plane  at  the  given  angle  of  attack.  This  plane 
is  divided  into  a  grid  of  4-in.  square  cells,  with  each  cell 
acting  as  the  point  of  origin  of  one  ray.  The  tracing  of 
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each  ray  from  the  grid  through  the  vehicle  geometry  is 
accomplished  by  subroutine  TRACK  and  GRID  will,  therefore, 
call  TRACK  once  for  each  ray. 

TRACK  has  two  primary  functions  to  perform.  The  first 
is  to  coordinate  all  the  processing  for  a  ray  until  it 
emerges  from  the  "far  side"  of  the  vehicle.  The  second  is 
to  provide  calculated  output  for  each  ray,  for  subsequent 
use  in  vulnerability  analysis  codes.  This  output  consists 
of  the  "line-of-sight"  thickness  of  each  geometric  region 
traversed  by  the  ray,  the  obliquity  (or  angle  of  incidence) 
of  the  ray  with  respect  to  each  region  (excluding  "spaces") 
encountered,  and  the  normal  or  perpendicular  distance 
through  each  region  (excluding  "spaces"). 

Tracing  of  a  ray  is  initiated  by  a  call  to  subroutine 
Gl.  This  routine  computes  the  line-of-sight  distance  from 
any  point  in  a  given  region  to  the  outer  surface  of  that 
region.  To  accomplish  this,  the  individual  bodies  which 
make  up  the  region  in  question  are  obtained  from  the  region 
descriptions  in  the  MASTER-ASTER  array.  Nine  separate 
body  routines  are  available  to  compute  the  distance  through 
each  body  in  the  path  of  the  ray.  This  process  continues 
until  the  ray  emerges  from  the  region.  The  next  region  in 
the  path  of  the  ray  is  then  determined  by  retrieving  a  list 
of  possible  regions  (created  by  GENI)  from  the  MASTER-ASTER 
array.  Subroutine  WOWI  is  then  called  to  determine  which 
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of  the  possible  regions  actually  has  been  entered  by  the 
ray.  The  region  ID  number  of  this  new  region  is  now  com¬ 
pared  to  that  of  the  region  just  left.  If  they  are  iden¬ 
tical,  then  the  two  regions  are  part  of  the  same  vehicle 
component.  The  ray  is  then  traced  through  the  new  region, 
with  line-of -sight  distances  being  accumulated.  When  a 
new  region  identifier  is  encountered,  indicating  that  the 
ray  is  leaving  a  vehicle  component,  control  is  returned 
to  TRACK.  The  total  line-of-sight  distance  through  the 
component  is  packed  and  stored,  and  Gl  is  called  to  con¬ 
tinue  tracing  the  ray.  This  process  is  repeated  until 
the  ray  finally  emerges  from  the  vehicle.  The  net  result 
of  these  calculations  is  the  total  line-of-sight  dis¬ 
tances  through  vehicle  components  traversed  by  the  ray. 

TRACK  now  calls  subroutine  CALC  which  computes  the 
normal  distance  through  each  component  and  the  angle  of 
obliquity.  The  calculated  data  for  the  ray  are  then  printed 
out  and  control  is  returned  to  GRID,  where  the  starting 
point  of  the  next  ray  is  established.  After  all  rays  at 
a  given  aspect  angle  have  been  traced,  GRID  returns  to 
MAGIC.  The  entire  ray- tracing  sequence  is  then  started 
again  for  the  next  aspect  angle  and  continues  until  all 
angles  have  been  completed.  The  problem  ends  at  that  point. 
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During  the  ray-tracing  procedure,  several  other  sub¬ 
routines  are  employed  to  perform  the  following  specialized 


functions 

OPENK 

DIREC 

XDIST 

TROPIC 

RANF 

SETUP 

ISIGN 
UN  3 

RPP2 

DCOSP 


Unpacks  the  component  line-of-sight  distances. 

Computes  the  direction  cosines  of  the  normal 
to  a  given  ray. 

Computes  the  distance  between  two  points. 

Picks  random  direction  cosines. 

Computes  random  numbers. 

Converts  integral  and  decimal  parts  of  a 
floating  point  number  to  two  fixed  point 
integers . 

Determines  a  Hollerith  sign. 

Unpacks  integer  variables  in  the  MASTER- 
ASTER  array. 

When  a  ray  goes  from  one  RPP  into  another, 
this  routine  computes  the  number  of  the  new  RPP. 

Computes  direction  cosines  of  the  line  between 
two  points . 
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Fig.  3.2  -  Magic  Flow  Chart 


3.3.1 _ Description  of  Routines 

The  following  pages  contain  detailed  descriptions  of 
the  individual  routines  that  comprise  the  MAGIC  program. 
The  routine  descriptions  are  given  in  alphabetical  order. 
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Subroutine  BOX 


This  routine  will  calculate  the  distance  from  a  fixed 
point  XB  in  the  direction  WB  to  the  first  and  last  contacts 
with  a  "BOX". 

The  box  is  defined  by  giving  its  vertex  y  and  three 
length  vectors  *  T^e  vectors  denote  the 

lengths  and  directions  of  the  box  edges. 


The  ray  XB  +  r£  will  intersect  the  box  if 
O  ^  (*B  -v  irn.yZi  <  2Si*£<: 

for  some  value  of  r. 

Let  _ _ 

(Li  =  V'SS**; 

Pi  «■  2S  /a{ 

Vt  =  V.-Ji/ai 

-H-i  =  £»2S /(XL 

Thus  equation  (1)  becomes 

O  <  fi-Vj.  +  rili  <  CL; 


(1) 
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defining 


H (X)  =1  for  X>0 
H (X)  =  0  X<0 

and  equation  (2)  becomes 

Vi  -  P-  ♦  a;  h  (-n;)  <  r  <  Vi  -  pi  + 
7l[  -H-i 


(3) 


C(v,p,a)<r<^(v, f>,a)  . 

(4) 

Thus,  the  ray  XB  +  rft  intersects  the  box  if  and  only  if 
there  exists  an  ' r'  satisfying  inequality  (4). 

This  ' r'  must  be  nonnegative  since  only  travel  in  the 
direction  ft  from  XB  is  of  interest.  Thus  we  define 
ROUT  =  min 

RIN  =  max 

where  RIN  is  the  distance  from  XB  to  first  contact  and  ROUT 
is  the  distance  from  XB  to  last  contact. 

The  ray  XB  +  rft  intersects  the  box  if  and  only  if 
ROUT  >  0  and  RIN  <_  ROUT.  The  above  statement  implies  that 
£*  >  0  for  all  i  in  order  for  the  ray  to  intersect  the  box. 
Subroutine  CALC 

Subroutine  TRACK  will  call  this  routine  to  perform 
normal  distance  and  angle  of  obliquity  calculations.  The 
TRACK  routine  will  call  CALC  at  each  region  intersection. 
CALC  will  determine  if  normal  distance  and  angle  of  obli¬ 
quity  are  required  by  examining  the  "space"  code  input. 
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The  calculations  are  required  for  material  regions  and  not 
for  "space"  regions.  The  CALC  routine  also  determines  if 
the  ray  has  left  the  RPP  containing  the  vehicle  and  assigns 
a  "9"  to  the  last  space. 

The  routine  contains  separate  coding  sections  for  the 
normal  distance  and  angle  of  obliquity  calculations.  Each 
section  refers  to  a  distinct  body  type  (sphere,  cylinder, 
etc . )  . 

The  following  paragraphs  contain  a  microscopic  dis¬ 
cussion  of  the  calculation  procedure  and  should  be  read  in 
conjunction  with  a  FORTRAN  listing  of  the  subroutine. 

CALC  begins  by  a  call  to  subroutine  OPENK  to  retrieve 
the  pertinent  information  about  this  contact  as  stored  by 
subroutine  TRACK. 

The  value  of  NIR  is  tested;  if  it  is  negative  the  cal¬ 
culation  is  finished. 

If  NIR  is  positive  the  calculation  begins. 

SIT  is  always  the  line-of-sight  distance  for  the 
present  contact  and  its  value  is  retrieved  from  the  TR 
array  where  it  was  put  by  TRACK. 

The  DO  Loop  to  Statement  10  updates  the  point  of  con¬ 
tact  from  its  original  position  XS  to  its  position  of  con¬ 
tact  with  this  region.  $S  are  the  direction  cosines  of  the 
ray,  and  TRAVEL  always  contains  the  total  line-of-sight 
distance.  Having  calculated  XI,  the  contact  point,  the 
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value  of  TRAVEL  is  updated  by  the  line-of-sight  distance 
through  this  region. 

Seven  (7)  is  subtracted  from  the  value  of  LSURF  as 
unpacked  by  OPENK  since,  to  avoid  negative  packed  numbers, 

7  was  added  to  LSURF  when  it  was  packed  in  TRACK. 

A  test  to  determine  the  sign  of  LSURF  is  made.  If  the 
value  is  negative,  the  ray  is  leaving  the  surface;  the 
direction  cosines  of  the  computed  normal  must  be  reversed 
in  sign.  The  variable  "XNOS"  is  a  constant  multiplier  of 
the  direction  cosines  and  will  be  set  to  ±1  depending  on 
the  sign  of  LSURF. 

Statement  16 

LOC  is  set  to  the  location  of  the  descriptive  data  for 
body  number  NBO . 

A  call  to  UN3  is  made  to  find  the  body  type  "ITYPE" 
which  will  be  one  of  the  basic  figures. 

If  sense  switch  6  is  on,  the  routine  will  output  the 
values  of  L,  XI,  WS,  TRAVEL,  LSURF,  NBO,  ITYPE,  and  LDATA 
for  debugging  purposes. 

By  setting  LOC  =  LOC+1  and  calling  the  unpacking  rou¬ 
tine,  the  location  of  the  physical  data  for  the  body  we  are 
working  on  is  retrieved. 

Preparing  to  enter  a  computed  "go  to",  ITYPE  is  set 
to  ITYPE+1  to  avoid  a  zero  index. 
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In  future  calculations  the  surface  number  must  be 


positive  so  it  is  set  to  its  absolute  value. 

A  test  for  a  valid  ITYPE  (1-9)  is  made,  and  an  error 
print  occurs  if  the  value  is  outside  these  limits. 

Statement  18 

The  computed  "go  to"  transfers  control  to  a  routine 
which  will  find  the  normal  to  each  type  of  body.  (The  REC 
and  RCC  have  the  same  beginning  processing,  and  therefore, 
share  part  of  one  routine,  as  do  BOX  and  RAW.) 

Statement  50 

This  section  computes  normals  to  any  of  the  six  sur¬ 
faces  of  an  RPP. 

The  sign  of  XNOS  is  changed  if  LSURF  =  1,  3,  5.  The 
variable  I  is  set  for  LSURF  =1,  2;  and  1=2  for  LSURF  = 
3,  4;  and  1=3  for  LSURF  =5,  6. 

Statement  60 

This  section  computes  normals  for  the  RPP. 

Statement  100 

The  normal  to  any  of  the  six  surfaces  to  a  box  is 
computed  by  this  coding. 

LSURF  is  tested  for  odd  or  even.  This  is  done  by 
"adding"  a  Boolean  "1"  to  LSURF  and  comparing  with  zero. 

If  LSURF  is  even,  the  sign  of  XNOS  is  changed. 
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Statement  102 


Check  LSURF-3.  If  negative  LSURF  is  1  or  2,  set  1=1. 
If  LSURF  is  3,  set  1=2.  If  LSURF>3,  test  LSURF-5.  Nega¬ 
tive  now  means  set  1  =  2;  ^  0  means  set  1  =  3. 

The  length  vector  1=1,  2  or  3  is  now  normal  to  the 
surface  of  contact.  The  odd-even  check  indicated  whether 
the  contact  surface  was  front  or  back,  and  the  sign  of  XNOS 
was  changed  to  reflect  this. 

Statement  115 

A  call  to  UN 3  to  retrieve  the  location  of  the  vertex, 
and  three  height  vectors  (in  that  order) .  IEMP  is  a  tempor¬ 
ary  storage  array. 

Set  LH+IEMP ( I )  the  location  of  the  data  for  the  height 
vector  of  interest. 

LV+IEMP ( 4 )  the  location  of  the  vertex  data. 

The  DO  117  Loop  transfers  the  vertex  and  height  vector 
coordinates  from  the  main  storage  (ASTER)  array  to  two 
temporary  arrays,  TEMP  and  TEMPI,  respectively. 

A  call  to  DCOSP  (TEMPI,  TEMP)  computes  the  direction 
cosines  from  TEMPI  to  TEMP  and  stores  the  answers  in  WB. 

The  DO  120  Loop  orients  WB  (direction  cosines  of  normal) 
according  to  the  sign  of  XNOS. 

Control  is  now  sent  to  Statement  1000. 
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Statement  150 


This  is  the  section  where  the  normal  to  the  sphere  is 
calculated . 

A  call  to  UN 3  picks  out  the  location  of  the  vertex. 

The  DO  115  Loop  takes  the  vertex  coordinates  from  the  ASTER 
array  and  puts  it  in  the  temporary  array  TEM. 

A  call  to  DCOSP  (XI,  TEM)  computes  the  direction  co¬ 
sines  from  XI  to  TEM  and  stores  the  results  in  WB.  These 
are  direction  cosines  of  the  normal. 

DO  156  Loop  sets  the  correct  sign  to  the  WB  direction 
cosines . 

Control  is  now  transferred  to  Statement  1000. 

Statment  200 

This  section  of  the  code  computes  normals  to  the  RCC. 

Test  LSURF-2 .  If  positive,  transfer  to  Statement  210. 
If  zero,  change  sign  of  XNOS .  If  negative,  no  change  is 
made. 

For  LSURF  =  1  or  2  we  have  a  hit  on  a  planar  surface, 
that  is  the  top  or  bottom  of  the  cylinder. 

A  call  to  UN 3  retrieves  the  location  of  the  vertex 
data,  as  well  as  the  height  vector. 

The  DO  213  Loop  transfers  the  vertex  and  height  vectors 
from  main  memory  ASTER  array  to  two  temporary  arrays  "TEM" 
and  "TEM1" . 
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A  call  to  DCOSP  (TEM,  TEMl)  computes  the  direction 
cosines  and  puts  them  in  SB. 

The  DO  204  Loop,  as  usual,  causes  the  direction  cosines 
to  reflect  the  sign  (orientation)  of  XNOS . 

Statement  210 

The  code  transfers  here  for  an  LSURF  =  3  (spherical  or 
elliptical  side)  and  ITYPE  =  4  or  5 . 

A  call  to  UN3  retrieves  the  location  of  the  vertex, 
height  and  first  radius  data. 

The  DO  212  Loop  takes  the  vertex  and  height  vectors 
from  main  memory  and  places  them  in  temporary  arrays ,  TEM 
and  TEMl,  respectively. 

DCOSP  is  called  twice  to  compute  direction  cosines, 

"WN"  from  TEM  to  XI  (vertex  to  point  of  contact  on  surface) 
and  "WI"  those  of  the  height  vector  TEM  to  TEMl. 

In  preparation  for  taking  a  dot  product,  set  SUM  =  0. 

The  DO  217  Loop  computes  the  dot  product  of  WN  •  WI . 

The  DO  214  Loop  translates  the  point  of  contact  to  a 
point  on  the  height  vector  XP . 

SUM  is  now  the  cosine  (dot  product  of  the  direction 
cosines)  of  the  angle  formed  by  the  height  vector  and  the 
line  from  TEM  to  XI. 

SUM  *  XDIST  (TEM,  XI)  (where  XDIST  is  a  function  to 
calculate  the  distance  from  TEM,  XI)  represents  that  por¬ 
tion  of  the  height  vector's  total  length  taken  up  by  XI 
under  translation. 
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Finally,  XP  =  XP*  WI  +  TEM  sets  the  value  of  XP  to  be 
just  the  translated  line  desired. 

If  I TYPE-5  is  0,  the  body  is  a  REC  and  control  is 
transferred  to  Statement  250.  Otherwise  control  is  trans¬ 
ferred  to  Statement  216. 

Statement  216 

The  direction  cosines  from  XI  to  XP  are  those  of  the 
normal  and  are  put  into  WB. 

The  DO  215  is  a  loop  to  orientate  the  WB 1 s  to  the  sign 
of  XNOS . 

Statement  250 

Control  was  transferred  from  the  cylinder  routine  when 
I TYPE  =  5. 

The  DO  253  Loop  takes  the  two  radius  vectors  and  places 
them  at  XP,  the  translated  point  on  the  height  vector.  The 
resultant  vectors  are  called  TEMP  and  TEMPI,  respectively. 

Al  is  the  distance  from  XP  to  TEMP. 

A2  is  the  distance  from  XP  to  TEMPI. 

Test  (Al,A2)  and  set  the  larger  of  the  two  to  Al .  Change 
the  value  of  TEMP  to  be  the  one  farthest  from  XP  if  it  is 
not . 

Statement  255 

C  =  •J Al^  -  A22  (the  distance  from  the  center 

to  the  focus) 

Compute  the  direction  cosines  from  XP  to  TEMP  and  call 
them  WN. 
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The  DO  260  Loop  computes  the  coordinates  of  the  two 


foci  and  calls  them  TEM  and  TEM1 ,  respectively. 

Now  the  direction  cosines  from  TEM  (one  foci)  to  XP 
(point  of  contact)  is  computed  and  called  WN. 

The  DO  263  Loop  sets  TEM  to  the  end  point  of  a  line 
from  one  of  the  foci  through  XI  with  an  overall  length 
of  2A1 . 

The  direction  cosines  from  this  new  end  point  TEM  to 
the  other  focis  TEM1  are  those  of  the  normal  WB. 

The  DO  270  Loop,  as  usual,  reorients  the  WB ' s  to  the 
sign  of  XNOS . 

Control  is  transferred  to  Statement  1000. 

Statement  300 

This  section  computes  normals  to  a  truncated  cone. 

If  LSURF  =  3  (not  top  or  bottom) ,  unpack  the  vertex, 
height,  and  two  radius  pointers.  (These  are  numbers  which 
index  the  position  of  the  floating  data  in  main  storage.) 

Compute  the  difference  (DIF)  in  the  size  of  radius  (1) 
top  and  radius  (2)  bottom. 

Switch  LR1  and  LR2  so  that  the  LR1  is  the  largest  and 
the  sign  of  DIF  is  positive. 

The  DO  305  Loop  sets  TEMPI  =  vertex. 

TEMP  =  the  top  of  the  "extended  height  vector"  (i.e., 

H.V.  multiplied  by  FACTR) . 

Compute  TDIS  distance  from  XI  to  TEMP 

QDIS  distance  from  TEMPI  to  TEMP 
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WN  direction  cos  from  TEMP  to  XI 

WA  direction  cos  from  TEMP  to  TEMPI 

The  DO  310  Loop  takes  the  dot  product  of  WN*WA  and 
stores  the  result  in  the  variable  SUM.  QSUM  =  TDIS/SUM  is 
that  portion  of  the  height  vector  used  by  the  triangle  made 
from  XP+XI-TEMP . 

QPLS  =  QDIS-QSUM  is  the  remainder  of  the  height  vector. 

Now  the  DO  312  Loop  computes  TEMP,  the  point  on  the 
height  vector  normal  to  the  point  XI  on  the  side  surface. 

A  call  to  DCOSP  computes  the  direction  cosines  WB  from 
XI  to  TEMP  of  the  normal . 

The  DO  313  Loop,  as  usual,  changes  WB  to  reflect  the 
sign  of  WB  and  control  is  sent  to  Statement  1000. 

Statement  315 

Change  the  sign  of  XNOS  so  that  top  and  bottom  can  be 
treated  the  same . 

Unpack  via  UN3  the  location  of  the  vertex  and  height 
vectors.  Then  by  the  DO  320  Loop,  TEMP  =  vertex  coordinates; 
TEMPI  =  height  vector  coordinates. 

Compute  WB  the  direction  cosines  from  TEMP  to  TEMPI. 

(The  normal  to  top  or  bottom.) 

The  DO  321  Loop  again  changes  WB  to  reflect  the  sign 
of  XNOS  and  control  goes  to  Statement  1000. 


70 


Statement  350 


This  section  is  for  computing  normals  to  the  ellipse. 
First,  retrieve  the  location  via  UN 3  of  the  two  foci  (LR1, 

LR2) ,  and  the  scalar  distance  of  the  major  axis  (LS) . 

The  DO  352  Loop  sets  TEM  =  focus  1;  TEM1  =  focus  2. 

A  =  Scalar  distance  for  major  axis. 

Compute  direction  cosines  WN  from  one  focus  (TEM)  to  XI  (con¬ 
tact  point) . 

The  DO  353  Loop  is  to  find  the  end  point  of  the  line 
of  length  A  and  direction  cosine  WN  which  starts  at  focus 
TEM.  Call  its  other  end  TEM  also. 

Now  the  direction  cosine  from  TEM  to  TEMl  is  called 
WB  and  is  the  normal. 

The  DO  354  Loop ,  as  usual,  sets  WB  to  the  sign  of  XNOS . 

Transfer  of  control  is  made  to  Statement  1000. 

Statement  400 

This  section  is  to  choose  the  normals  to  the  five  sides 
of  a  RAW.  But  since  four  of  the  five  surfaces  are  the  same 
as  those  of  a  box,  the  routine  will  go  to  100  (BOX)  for  sur¬ 
faces  1,  3,  5,  and  6. 

LSURF  =  2  represents  the  slant  surface  and  LSURF  =  4 
is  an  error  condition  which  goes  to  Statement  415. 

Statement  406 

A  call  to  UN3  to  unpack  pointers  to  data  on  vertex  (LV) 
and  height  vectors  LV1,  LV2 . 


71 


Statement  450 


Computation  of  normals  to  the  ARB  polyhedron. 

The  equation  of  the  plane  is  AX+BY+CZ+D  =  0.  The 
direction  numbers  of  the  normal  are  A,  B,  and  C. 

LSPT  is  the  place  in  the  ASTER  array  where  A,  B,  and 
C  are  stored. 

The  DO  453  Loop  computes  A2+B2+C2 . 

2  2  2 

DIV  =  Az+Bz+c 

The  DO  460  Loop  computes  direction  cosines  and  multi¬ 
plies  by  "XNOS" .  Transfer  of  control  is  made  to  State¬ 
ment  1000. 

Statement  415 

Error  halt,  for  a  bad  LSURF  number  in  TRC  (LSURF  =  4) . 

Statement  1000 

At  this  point  the  normal  direction  cosines  have  been 
computed . 

The  DO  1001  Loop  moves  the  contact  point  very  slightly 
into  the  region  in  order  to  avoid  tracking  from  a  boundary. 

The  angle  of  obliquity  in  degrees  is  now  arccosine  of 

WB.WS. 180  . 

w 

If  the  body  is  an  ARB,  the  angle  must  be  made  <_90°  by 
changing  the  sign  of  WB .  (Note:  This  was  done  in  all  other 
figures  by  implicitly  testing  LSURF  odd  or  even.) 
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Statement  1004 


NASC  =  -2.  Set  cumulative  dist  =  0.  Starting  a  new 

ray . 

IR  =  NIR 

Call  Gl  to  shoot  the  ray  from  XB  in  the  WB  direction. 

SN  =  SI  The  normal  distance  traveled  by  the  ray. 

GO  TO  20. 

Statement  20 

Call  OPENK  to  get  the  region  number  (NTYPE) . 

ISPOT  =  LIRFO+NTYPE-1 

ISPOT  is  the  location  in  MASTER  of  region  and  space  code 
data  for  NTYPE. 

IDENT  =  IDENT-1  because  one  was  added  when  it  was  packed  in 
MAGIC. 

If  sense  switch  6  is  on,  debug  printout  occurs  with 
the  variables  NIR  (region  identifier) ,  and  NTYPE  (region 
number) . 

SIN  Line-of-sight  distance 

ANGLE  Angle  of  obliquity 

SSPACE  Distance  through  a  space 

SN  Normal  distance 

WB  Direction  cosines  of  normal. 

Statement  24 

ISPOT  and  the  call  to  UN3  change  NIR,  the  region  num¬ 
ber,  from  internal  code  to  identifier  for  printing  by  TRACK. 
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If  IDENT  is  >9,  there  is  no  space  following  the  region 
and  NTYPE  (type  of  space)  and  SSPACE  (distance  through 
space)  =  0. 

If  IDENT  =0,  it  is  also  not  a  space  (space  codes  are 
-1,  1,  2,  3,  ...  9  only). 

Statement  40 

Test  for  last  contact.  Space  "IDENT"  code  9  (last 
space)  . 

NTYPE  =  IDENT  (type  of  space)  . 

SSPACE  =  TR  (L+l)  -  next  line-of-sight  distance. 

TRAVEL  =  TRAVEL+SSPACE  update  distance  counter. 

RETURN . 

Subroutine  DCOSP  (XA,  XB,  WA) 

Purpose  of  Routine 

To  compute  the  direction  cosines  from  point  XA  to  point 
XB  and  to  store  the  direction  cosines  in  the  array  WA. 
Description  of  Routine 

The  variables  XA,  XB,  WA  are  all  singly  subscripted 
arrays  of  length  3.  The  quantities  XA(1),  XA(2),  XA(3)  are 
the  X,  Y,  Z  coordinates,  respectively,  of  the  point  XA. 

The  WA ( 1 ) ,  WA ( 2 ) ,  WA(3)  are  the  WX,  WY,  WZ  direction  cosines 
to  be  computed. 
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Let  DIS  be  the  distance  between  point  XA  and  point  XB. 
The  direction  cosines  are  then 

WA ( I )  =  {XB(I)  -  XA ( I ) }  /DIS  for  I  =  1,  2,  3. 

Subroutine  DIGCON  (IC,  IX,  LE) 

This  routine  is  used  by  GENI  to  convert  the  body  data 
read  in  Hollerith  format  into  integer  format  for  use  by 
GENI  if  triplet/scalar  data  was  used  for  body  descriptions. 

The  IC  array  contains  the  Hollerith  data  which  were 
read  in  by  GENI.  The  IX  array  is  to  hold  the  resultant 
integer,  and  LE  is  one  more  than  the  number  of  integers  to 
be  created. 

Blanks  are  ignored  in  each  integer  field,  except  that 
a  field  of  all  blanks  will  be  converted  to  zero.  The  valid 
characters  are  the  numericals  0-9.  Any  other  character, 
when  detected,  causes  an  error  message  to  be  output. 

At  the  completion  of  the  routine,  the  IX  array  will 
contain  LE-1  entries  each  of  which  is  an  integer  from  the 
field.  Thus,  IX (1)  will  be  the  integer  from  card  columns 
11  through  20,  and  IX (2)  will  be  from  card  columns  21 
through  30,  and  so  on  up  to  IX (LE-1) . 

Subroutine  FLOCON  (IC,  FX,  LE) 

This  subroutine  is  used  by  GENI  to  convert  a  body  data 
card  read  in  Hollerith  format  into  floating  point  numbers. 
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IC  is  the  data  array  which  contains,  in  positions  IC(ll) 
through  IC(70),  the  Hollerith  data  read  in  by  GENI .  FX  is 
an  array  to  contain  the  floating  point  numbers  which  result 
from  the  FLOCON  calculations.  There  will  be  LE-1  such 
floating  point  numbers  created. 

The  routine  ignores  blank  character  and  accepts  in 
addition  to  the  numerals  0  through  9  the  characters  (-) , 

(+) ,  (E) ,  (.).  Any  other  character  causes  an  error  print¬ 

out.  Omission  of  a  decimal  point  or  failure  to  complete 
an  exponent  also  will  cause  an  error  printout.  Each  field 
is  10  characters  long  and  starts  at  IC (11) , IC (2)  , IC  (31)  , 
etc.,  and  ends  at  IC(20),  IC(30),  etc.  The  program  will 
translate  the  Hollerith  information  to  floating  point  and 
store  the  results  in  FX(1),  FX(2),  up  to  FX(LE-l)  for  a 
maximum  LE  of  seven. 

\ 

Subroutine  G1  (SI,  IR,  XP) 

Subroutine  G1  is  the  main  ray-tracing  routine  of  the 
MAGIC  program.  It  performs  the  following  function.  Given 
a  ray  in  region  IR  at  point  XB  with  direction  cosines  WB, 
find  the  distance  to  the  next  region  and  the  number  of  that 
region  (IRPRIM) . 

The  following  description  outlines  the  method  used  to 
accomplish  this  task.  The  flow  chart  provided  at  the  end 
of  this  discussion  is  a  replica  of  the  coding  in  Gl. 


Assume  that  a  new  ray  has  been  smarted  at  its  point  of 
origin  XB0  in  region  IR.  The  variable  NASC  is  set  to  -1  by 
the  calling  program,  indicating  th^t  a  new  ray  is  going  to 
be  processed.  Let  us  define  a  variable  DIST  as  the  total 
distance  traveled  by  the  ray  since  it  left  XBQ .  Thus,  DIST 
is  initialized  to  zero  for  a  new  ray.  G1  first  investigates 
the  region  description  for  IR,  obtaining  all  the  bodies 

i 

which  the  ray  might  strike.  Then,  for  each  body  mentioned 
in  the  description,  the  distances  from  XBQ' to  the  point  where 
the  ray  enters  the  body  (RIN)  and  to  the  point  where  the 
ray  leaves  the  body  (ROUT)  are  computed.  Nine  different 
body  routines,  each  applicable  to. a  different  body  type,  are 
available  to  Gl  for  this  purpose.  The  value  of  ITYPE  for 
that  body,  as  obtained  from  the  MASTER  array,  determines 
which  routine  is  called  (i.e.,  if  the  body  being  examined  is 
a  sphere,  ITYPE  =  2  and  Gl  will  call  subroutine  SPH  to  com- 
<  pute  RIN  and  ROUT  for  a  sphere) .  Gl  then  scans  all  of  the 

RIN  and  ROUT  values  and  selects  the  smallest  of  these  dis¬ 
tances,  subject  to  the  constraint  that  the  distance  chosen 
be  greater  than  DIST.  The  body  number  corresponding  to  the 
chosen  distance  is  then  placed  in  the  NASCT  table.  In 
general,  the  ray  will  not  hit  all  of  the  bodies  mentioned 
in  the  region  description.  If  so,  ROUT  is  set  equal  to  a 

constant  PINF  (equal  to  -1050)  . 

\ 
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Three  possibilities  exist  at  this  point. 

1.  A  unique  value  of  RIN  was  selected,  in 
which  case  the  NASCT  table  contains  only 
one  body  number.  This  is  the  next  body 
in  the  path  of  the  ray. 

* 

2.  The  selected  value  of  RIN  may  correspond 
to  more  than  one  body,  indicating  that 
two  or  more  bodies  have  a  common  surface. 

Each  of  these  body  numbers  then  will  be 
stored  in  NASCT. 

3.  The  value  of  ROUT  for  the  body  in  which 
the  ray  is  currently  in  may  be  selected. 

This  means  that  the  ray  will  leave  this 
body  before  encountering  any  other. 

In  any  event,  the  ray  is  advanced  to  the  next  body  sur¬ 
face  (at  point  XP)  and  DIST  is  equated  to  the  chosen  value 
of  RIN  or  ROUT. 

Gl  must  now  determine  the  next  region  (IRPRIM)  where 
the  ray,  at  point  XP,  is  located.  The  first  body  number  is 
retrieved  from  NASCT  and  its  entering  (if  RIN  was  selected) 
or  leaving  (if  ROUT  was  selected)  table  is  examined  (see 
discussion  of  WOWI  for  explanation  of  these  tables) .  These 
tables  provide  all  the  possible  regions  which  may  contain 
the  current  position  of  the  ray.  The  variable  JREG  is  set 
equal  to  the  first  region  in  the  table  and  subroutine  WOWI  * 
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is  called.  WOWI  will  test  whether  the  ray  is  in  JREG  and 
will  set  LTRUE  =  1  if  it  is,  or  LTRUE  =  0  if  it  is  not.  If 
LTRUE  =  0,  G1  will  equate  JREG  to  the  next  possible  region 
and  call  WOWI  again.  This  process  continues  until  the  cor¬ 
rect  region  (LTRUE  =1)  is  found.  If  the  ray  cannot  be 
located  in  any  of  the  regions  in  the  entering  or  leaving 
table,  the  next  body  is  taken  from  the  NASCT  table  and  a 
new  list  of  possible  regions  is  compiled.  If  the  NASCT 
table  is  exhausted  without  locating  a  region,  an  error  has 
occurred  and  the  error  counter  IERR  is  incremented  by  1. 

The  ray  is  terminated  and  G1  returns  to  its  calling  program 
with  IRPRIM  set  to  zero.  The  entire  job  is  terminated  if 
IERR  exceeds  10.  Assuming,  however,  that  the  correct  region 
IRPRIM  has  been  determined,  the  value  of  IR  is  compared  to 
IRPRIM.*  If  they  are  the  same,  Gl  remains  in  control  re¬ 
peating  the  above  procedure  with  a  new  value  of  DIST.  The 
cumulative  distance ,. SI ,  traveled  in  a  region  is  updated 
throughout  the  tracking.  If,  however,  IR  ^  IRPRIM,  a  new 
region  has  been  entered  and  Gl  returns  to  TRACK,  where  the 
total  distance  through  the  region  just  left  is  stored.  IR 


*  The  conventional  and  nuclear  versions  of  Gl  diverge 
at  this  point.  In  SAM-C,  the  work  of  Gl  is  finished 
as  soon  as  IRPRIM  is  determined.  SAM-C  does  not  con¬ 
tain  an  error  counter  and  the  job  terminates  when 
IRPRIM  =  0.  The  remainder  of  this  discussion,  then, 
applies  only  to  the  MAGIC  version  of  Gl. 
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is  set  equal  to  the  new  region  number,  G1  is  called  again, 
and  tracing  of  the  ray  is  continued  with  the  new  values  of 
IR  and  DIST. 

Subroutine  GENI 

GENI ' s  purpose  is  three-fold: 

1.  To  enter  into  the  machine  the  input 
describing  the  geometry. 

2 .  To  check  for  some  input  errors  and 
print  suitable  diagnostic  messages. 

3.  To  set  up  the  MASTER-ASTER  array  for 
reference  by  the  ray-tracing  subroutines. 

The  following  data  sets  are  read  in  and  processed  by 

GENI . 

Set  1  -  The  Title  Card 

This  makes  it  possible  to  distinguish  between  different 
jobs  run. 

Set  2  -  Contains  the  Limitations  of  the  Problem 

NRPP  The  number  of  rectangular  parallelepipeds. 

NTRIP  The  number  of  triplets  to  be  read  in. 

NSCAL  The  number  of  scalars  to  be  read  in. 

NBODY  The  number  of  different  bodies  used  to 

describe  the  geometry  other  than  RPP ' s . 

NRMAX  The  maximum  number  of  regions  made  by 

the  RPP's  and  the  other  legal  geometric 
configurations . 
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IPRIN  This  is  the  printing  option.  If  > 

the  number  is  other  than  zero  the 
MASTER-ASTER  array  will  be  printed 
out  upon  completion  of  GENI . 

SCALE  This  number  is  used  to  scale  all 

geometry  data. 

Set  3  -  Contains  the  Six  Bounding  Planes  for  each  RPP 

The  bounds  are  given  in  the  following  order:  X-lower, 
X-upper,  Y-lower,  Y-upper,  Z-lower,  Z-upper. 

Set  4  -  Contains  the  Triplet  Data 

This  is  read  in  only  if  NTRIP  >0. 

Set  5  -  Contains  the  Scalar  Data 

This  is  read  in  only  if  NSCAL  >0. 

Set  6  -  Contains  the  Body  Description 

Numbers  are  type  integer  and  refer  to  specific  triplet 
and  scalar  data,  or  they  are  floating  point  and  the  actual 
description . 

Set  7  -  Contains  the  Region  Combination  Data 

Each  region  is  described  by  the  surfaces  that  compose 

it . 

Rectangular  Parallelepipeds 

If  NRPP  is  other  than  zero,  GENI  calls  subroutine  RPPIN 
which  reads  in  Set  3  and  places  in  the  main  array  this  data 
returning  with  the  next  available  location  in  the  main 
array.  (This  will  be  described  in  detail  later.) 
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Triplet  and  Scalar  Data 

ifi,  NTRIP  and  NSCAL  are  positive.  Sets  4  and  5  are  read 
into  the  bottom  of  the  ASTER  array. 

Description  of  Bodies 

After  reading  the  first  card  of  the  sixth  set,  a  check 
is  made  to  see  if  the  type  of  body  is  one  of  the  legal  con¬ 
figurations.  If  so,  there  is  a  second  test  to  see  whether 
the  card  should  contain  floating  or  fixed  point  numbers.  If 
fixed  point  input  is  used,  the  information  on  the  card  is 
then  converted  by  DIGCON  and  the  number  is  assumed  to  refer 
to  triplet  and  scalar  data.  If  floating  point  input  is 
used,  the  information  on  the  card  is  converted  by  FLOCON  and 
is  stored  at  the  bottom  of  the  main  array  in  its  proper  lo¬ 
cation  by  SEE3 .  This  operation  is  performed  NBODY  times. 

The  array,  which  was  built  up  at  the  end  of  the  main  array, 
is  then  shifted  up  to  the  next  available  location  in  the 
main  array  and  the  location  numbers  in  the  MASTER  array 
referring  to  this  data  are  adjusted  accordingly.  Note  that 
ARB  input  must  be  in  floating  point  form. 

Region  Combination  Data 

The  first  card  of  each  region  in  the  seventh  set  gives 
the  region  number,  logical  operations,  and  the  bodies  that 
compose  a  particular  region.  A  test  is  made  to  see  that  the 
body  numbers  are  valid  and  that  the  logical  operations  are 
true.  Both  the  logical  operations  and  the  body  data  are 
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stored  in  the  MASTER  array.  The  next  card  is  read  in  and 
tested  to  see  if  the  information  it  contains  is  a  continu¬ 
ation  of  the  previous  card  or  a  new  region.  This  procedure 
is  done  NRMAX  times.  Then  a  test  is  made  on  all  the  data 
to  see  if  any  points  are  in  more  than  one  region.  This 
would  be  an  error  because  it  means  that  the  region  des¬ 
cribed  is  actually  the  same  as,  or  part  of,  another  region. 
Entering  and  Leaving  Tables 

After  reading  and  checking  of  all  data  sets,  the 
entering  and  leaving  tables  are  prepared.  These  tables 
denote  the  possible  regions  that  a  ray  may  enter  upon  enter¬ 
ing  or  leaving  a  given  surface. 

The  total  room  taken  by  the  geometry  is  then  calcu¬ 
lated  and  a  test  is  made  on  the  printing  option  IPRIN. 

Subroutine  GRID 

The  GRID  routine  is  called  by  MAGIC.  GRID  will  control 
all  the  input  and  processing  for  a  single  attack  plane  and 
then  return  to  MAGIC.  The  routine  has  an  input  reading 
phase,  an  input  calculation  phase,  and  a  ray  calculation 
phase. 

The  input  phase  will  read: 

NX  The  number  of  4-in.  cells  in  the 

horizontal  direction. 

NY  The  number  of  4-in.  cells  in  the 

vertical  direction. 


90 


IRSTART  The  region  number  enclosing  the 
target  and  attack  plane. 

IENC  Same  as  above . 

KWG  The  ray  number  at  which  ray  processing 

will  begin. 

A  Azimuthal  angle  (degrees) . 

E  Elevation  angle  (degrees) . 

ENGTH  The  back-off  distance. 

TESTR  A  flag  indicating  the  presence  of 

XNP  data. 

XNP  The  coordinates  of  the  vehicle  origin, 

if  other  than  (0,  0,  0) .  The  XNP  data 
is  read  only  if  TESTR  is  not  zero. 

The  input  processing  phase  will  convert  the  azimuthal 
and  elevation  angles  to  radians  and  compute: 


CA  =  COS (A) 
CE  =  COS (E) 
SA  =  SIN (A) 
SE  =  SIN (E) . 


The  error  flag  IERR  is  set  to  zero. 

The  calculation  phase  will  set  up  the  ray  coordinates 
on  the  attack  plane  and  compute  the  ray  direction  cosines. 
Subroutine  TRACK  is  called  to  perform  the  ray-tracing  cal¬ 
culations  for  the  ray.  After  all  calculations  are  performed, 
TRACK  will  return  to  GRID.  At  this  point  the  error  flag 
(IERR)  is  examined.  If  more  than  10  errors  have  occurred 
during  the  calls  to  TRACK,  the  processing  of  the  attack 
plane  will  be  terminated  and  GRID  will  return  to  MAGIC. 
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If  10  errors  have  not  occurred,  the  next  ray  will  be  proc¬ 
essed.  The  calculation  procedure  is  outlined  below.  A 
figure  detailing  the  orientation  of  the  grid  plane  is  given 
in  Section  3.2.2. 

DO  250  KK  =  KWG,  KL  (a  loop  to  control  all  rays,  KK  counts 


rays) 

WB ( 1)  =  -CE*CA 

Calculation  of  direction  cosines 

WB ( 2 )  =  -CE*SA 

from  the  input  azimuthal  and 

WB (2)  =  -SE 

elevation  angles. 

II  =  ( (KK-1) /NX) +1 

J  =  KK-  ( II-l ) *NX 

Calculation  of  grid  square 

V  =  ( (NY/2)-II) *4.0+2 

coordinates  (V,  H)  in  the 

H  =  ( (NX/2)-J) *4.0+2. 

grid  plane. 

IV  =  RANF (-1) *10 . 

Calculation  of  two  random 

IH  =  RANF ( -1) *10. 

digits  in  the  range  (0,  9). 

V  =  V+ . 4*FLOATF (IV) + . 2  The  "V,  H"  coordinates  are  now 

H  =  H+ . 4 *FLOATF (IH) + . 2  at  a  random  point  within  the 

grid  square. 

IVIH  =  IH*10+IV  Form  a  two  digit  random  number  for 

printing  by  CALC. 

XBS(l)  =  -V*CA*SE-H*SA  Calculation  of  X,  Y,  Z  coor- 

XBS(2)  =  -V*SA*SE+H*CA  dinates  in  the  coordinate 

XBS(3)  =  V*CE  system  of  the  vehicle. 
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DI  210  MKJ  =  1,  3  Translate  coordinates  to 

210  XBS(MKJ)  =  XBS ( MKJ ) +XNP ( MKJ )  real  vehicle  center. 

Call  TROPIC  (WP)  A  routine  to  generate  random  direc¬ 

tion  cosines  (WP)  from  an  isotropic 
distribution . 


XBS (1)  =  XBS(l)+WP(l)*1.0E-4 
XBS ( 2 )  =  XBS(2)+WP(2) *1.0E-4 
XBS ( 3 )  =  XBS(3)+WP(3)*1.0E-4 


The  grid  coordinates  are 
perturbed  to  avoid  rays 
exactly  on  grid  boundaries. 


XBS (1)  =  XBS (1) -ENGTH*WB (1)  The  XB  which  are  X,  Y,  Z 

XBS (2)  =  XBS (2) -ENGTH*WB (2)  coordinates  are  not  a  dis- 

XBS ( 3 )  =  XBS (3) -ENGTH*WB (3)  tance  ENGTH  from  the  vehi¬ 

cle  center. 

At  this  point,  the  position  on  the  grid  XB  and  the  di¬ 
rection  WB  have  been  calculated  and  TRACK  is  called. 


Function  ISIGN  (V) 

Purpose  of  Routine 

To  return  to  the  calling  program  an  alphanumeric  "blank" 
if  the  variable  V  is  positive  or  zero  and  to  return  an  al¬ 
phanumeric  "minus"  if  V  is  negative. 

Description  of  Routine 

This  routine  is  a  function  subprogram  and  is  called  in 
subroutine  TRACK.  It  is  used  in  the  section  of  TRACK  that 
outputs  the  identification  and  data  cards. 
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Routines  Called 
by  This  Routine 


Routines  which 
Call  This  Routine 


none 


TRACK 


Subroutine  OPENK  (I,  J,  K,  L ,  M) 

This  routine  unpacks  the  four  items  I,  J,  K,  L  which 
are  stored  in  a  single  computer  word  in  the  array  ITR  at 
location  ITR(M). 

The  four  items  were  packed  by  subroutine  TRACK. 
Description  of  Routine 

The  four  items  are  packed  using  12  binary  bits  per 
item.  The  packed  word  appears  as 

12  12  12  12 
_ bits  bits  bits  bits 

not  used  I  J  K  L  {computer  word} 


The  actual  unpacking  is  described  below: 


LI  =  ITR (M) 


LI  contains  the  complete  packed  word 


L  =  LI*7777  The  "*"  denotes  a  logical  "and"  opera¬ 

tion.  L  now  contains  the  12  right-most 
bits  of  LI. 

LI  =  LI/112  The  word  LI  is  shifted  12  bits  to  the 

right  by  a  division.  The  variable  112 
has  the  value  212  =  1024.  LI  now 
appears  as: 


not  used  I  J  K 


94 


K  =  LI*7777  Again  perforin  the  logical  "and"  and 

extract  the  correct  value  of  K. 

LI  =  LI/112  Again  shift  LI  and  extract  the 

J  =  LI*777  desired  packed  item  -  and  so  on. 

LI  =  LI/112 
I  =  LI*777 

RETURN . 

NOTE:  The  array  ITR  is  communicated  through  Common. 

Function  S  (I,  N) 

The  routine  is  used  to  retrieve  the  coordinates  of  any 
of  the  six  sides  of  a  rectangular  parallelepiped  (RPP) . 

Given  "I"  the  ordinal  number  of  the  RPP  and  "N"  the  side 
number  where  N=  (1,  2,  3,  4,  5,  6)  refer  to  (XL,  Xy,  YL, 

Yy,  ZL,  Zjj)  ,  the  routine  will  compute  the  location  in  the 
ASTER  array  of  the  required  coordinate. 

To  understand  the  procedure  it  is  necessary  to  know  the 
structure  of  the  data  in  the  ASTER  array.  Each  RPP  occu¬ 
pies  six  computer  words  starting  at  location  LBASE.  Each 
of  the  six  words  contain  three  packed  integer  variables  as 
shown  on  the  following  page. 
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ASTER  Array 


LBASE 


+  1 

The 

Location 

Location  of 

+  2 

number 

of 

floating  point 

+  3 

of 

complex 

word  containing 

+  4 

complex 

surface 

the 

+  5 

surfaces 

data 

coordinate 

+  6 

+  7 

As 

As 

As 

+  8 

above 

above 

above 

15  bits 

15  bits 

15  bits 

RPP, 


RPP  - 


Thus  the  Nth  coordinate  of  the  I1-*1  RPP  is  found  in  the 
right-most  15  bits  of  ASTER  {LBASE  +  6(1-1)  +  N}. 

The  actual  FORTRAN  statements  are : 


L  =  LBASE  +  6(1-1)  +  N-l 
LL  =  ASTER (L) .AND. 77777B 
S  =  ASTER (LL) 


Retrieve  the  location  of 
the  packed  word 

Retrieve  the  right-most 
coordinate 

S  is  now  the  desired 
coordinate . 


Subroutine  SEE3 

Subroutine  SEE3  is  called  by  GENI  and  ALBERT.  The 
routine  accepts  either  triplets  or  scalars  and  places  them 
in  the  MASTER  array.  A  search  is  made  through  the  MASTER 
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array  to  determine  if  the  triplet  or  scalar  already  appears 
in  the  array.  If  so,  the  data  will  not  be  stored  again  and 
the  location  IWH  of  the  data  is  returned  to  the  calling 
program. 

If  the  data  do  not  appear,  they  are  first  scaled  and 
then  added  to  the  array.  Data  location  IWH  in  the  array  is 
returned . 

The  triplet  data  are  passed  to  the  subroutine  by  the 
arguments  FX,  FXX,  FXXX.  The  scalar  data  are  passed  by  the 
argument  FX. 

The  argument  LSI  denotes  whether  triplet  or  scalar 
data  are  to  be  stored.  LSI  is  zero  for  triplet  data  and 
nonzero  for  scalar  data. 

Subroutine  SETUP  (DP,  I,  IF,  N) 

The  integer  and  fractional  parts  of  the  floating  point 
variable  DD  are  stored  in  the  array  IP.  The  variables  I 
and  IF  denote  the  locations  in  the  array  IP  at  which  the 
integer  and  fractional  parts  of  DD  are  to  be  stored.  The 
variable  N  indicates  the  number  of  digits  in  the  fractional 
part.  The  routine  is  used  by  subroutine  TRACK  to  convert 
thicknesses  and  normal  distances  into  the  proper  form  for 
output  on  the  identification  and  data  cards. 
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The  routine  considers  only  the  absolute  value  of  DD. 
The  correct  sign  is  output  by  the  function  ISIGN.  The  de¬ 
tails  of  the  program  are  given  by  the  flow  chart  below. 

D  =  ABSF (DD) + . 005  Form  the  absolute  value  and 

round  off. 


IP (I)  =  D  The  integer  part  of  D  is 

stored  in  IP (I) 

DI  =  IP(1)  DI  now  contains  the  floating 

point  representation  of  the 
integer  part. 

F  =  (D-DI) . 10n  D-DI  is  the  fractional  part. 

(D-DI) . 10n  gives  the  desired 
number  of  digits. 

IP (IF)  =  F  F  is  converted  to  an  integer 

and  stored  in  IP  (IF) . 


RETURN . 


NOTE:  The  array  IP  is  communicated  through  Common. 


Subroutine  SPH 

Given  a  point  in  space  XB(1),  XB(2),  XB(3),  a  direc¬ 
tion  WB ( 1) ,  WB ( 2 )  ,  WB ( 3 ) ,  this  routine  will  compute  distances 
to  a  sphere  of  radius  R  and  center  V(l),  V(2),  V(3).  Two 
distances,  RIN  and  ROUT,  are  computed.  RIN  is  the  distance 
to  first  contact  and  ROUT  is  the  distance  to  last  contact. 
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The  distances  RIN  and  ROUT  are  used  by  subroutines  G1 
and  WOW I  to  determine  which  body  and  region  the  ray  is  to 
intersect . 


The  equation  of  a  sphere  is  given  by: 

(X-Vx)2  +  (Y-Vy)2  +  (Z-Vz)2  -  R2  =  0  (1) 

where  Vx,  Vy,  Vz  are  the  center  of  the  sphere,  and  R  is  the 
radius . 

The  parametric  equations  of  the  ray  are  given  by: 

Xo  +  WxS  =  X 

Yo  +  WyS  =  Y 

Zo  +  WzS  =  Z  (2) 

where  Xo,  Yo,  Zo  are  the  starting  point  of  the  ray  and  Wx, 
Wy,  Wz  are  the  direction  cosines  of  the  ray. 

Substituting  (2)  in  equation  (1)  we  obtain 

(Xo+WxS-Vx) 2  +  (Yo+WyS-Vy)2  +  (Zo+WzS-Vz) 2  -  R2  =  0 . 


99 


Let  Dx  =  Xo-Vx,  Dy  =  Yo-Vy,  Dz  =  Zo-Vz 

(Dx+WxS) 2  +  (Dy+WyS)2  +  (Dz+WzS)2  -  R2  =  0 

and 

S2  { Wx2+Wy2+Wz2 }  +  S.2  { DxWx+DyWy+DzWz }  +  Dx2+Dy2+Dz2-R2=  0 


A  B  C 

Thus , 

S  =  -B±  /b2-C  . 

Note  that  A  =  Wx2  +  Wy2  +  Wz2  =  1. 

The  two  roots  are  the  desired  RIN  and  ROUT,  where 


RIN  =  -B- 


ROUT 


Note  that  if  B2-C 
intersection  occurred, 
set  RIN  =  00 


'l 

=  0  the  roots  are  imaginary  and  no 
In  the  case  of  no  intersection  we 


ROUT  =  -  oo 

where  oo  is  taken  to  be  10^0. 


Subroutine  TRACK 

TRACK  has  the  function  of  accepting  grid  coordinates 
from  the  GRID  routine  and  initiating  a  ray.  It  follows  the 
ray  through  all  points  of  contact,  records  the  important 
data,  and  punches  both  the  identification  and  data  cards 
for  each  ray. 
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The  routine  begins  by  starting  the  ray,  and  computing 
the  distance  from  the  first  vehicle  component  hit  to  a  plane 
parallel  to  the  attack  plane  and  passing  through  the  vehicle 
center.  It  then  proceeds  to  record  distances  through  each 


component  encountered,  checking  each  hit  for  armor  shell, 
skirting,  or  interior  volume,  as  noted  on  the  region  iden¬ 
tification  card.  When  the  last  component  is  hit,  it  once 
more  computes  the  distance  to  the  attack  plane. 

After  hitting  the  last  component,  the  punching  phase 
is  begun.  TRACK  decides  first  if  any  card(s)  should  be 
punched  (it  is  possible  to  miss  the  target,  and  thereby  get 
no  useful  information) .  In  the  event  that  the  vehicle  was 
hit,  TRACK  first  punches  the  ID  card,  then  calls  on  sub¬ 
routine  CALC  to  compute  normal  distances  and  organize  the 
outputs  for  the  data  card(s).  CALC  is  called  twice  per  data 
card,  as  two  hits  appear  on  each.  After  the  results  are  all 
punched,  control  goes  back  to  GRID. 

A  detailed  description  of  the  CALC  routine  appears  on 
the  following  pages.  The  description  should  be  followed  in 
conjunction  with  a  FORTRAN  listing. 

Begin  Track  Computation 

NASC  =  -1  (Get  ready  for  a  new  ray) 

KHIT  =  0  (Number  of  hits  =  0) 

IR  =  IRSTART  (Starting  region  number) 

L  =  1  (Number  of  intersections  is  one  to  start) 
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MSKRT 


0 


(No  skirting  yet) 

MVOL  =  0  (No  interior  volume  yet) 

JCNT  =  0  (Initialize  a  counter) . 

The  DO  5  Loop  clears  the  two  storage  arrays  used  by 
program  TRACK  at  the  start  of  a  ray. 

Statement  10 

Call  Gl  to  start  or  continue  the  ray  from  XB  in  the  WB 
direction  starting  in  region  IR.  Gl  returns  with  IRPRIM 
new  region  number,  XP  point  of  contact,  SI,  distance  through 
region  IR. 

TR ( L)  =  SL  The  TR  array  will  contain  the  line- 

of-sight  distance  from  contact  to 
contact. 

KLSURF  =  LSURF+7  Add  seven  to  what  might  be  a  nega¬ 

tive  LSURF  number,  (1-6)  indicating 
the  ray  is  leaving  that  surface 
number . 

The  line  "ITR(L)  =" ,  preserves  in  the  ITR  ARRAY,  in¬ 
dexed  by  L  number,  the  following  information:  surface 
number,  body  number,  next  region,  this  region.  These  data 
can  be  retrieved  by  program  OPENK  and  is  done  in  CALC. 

Check  L  500  and  stop  if  this  occurs,  because  only 
room  for  500  intersections  per  ray  is  allocated. 

Statement  41 

If  the  next  body  entered  is  an  RPP,  the  region  of 
interest  has  been  gone  through  and  IRPRIM  =  0  which  termi¬ 
nates  the  ray. 
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Statement  42 


LMAX  =  L  (number  of  last  contact) . 

The  DO  43  Loop  calculates  the  distance  D2  from  the  last 
point  XP  to  the  center  XBS .  SI  is  subtracted  because  this 
is  the  distance  from  last  contact  to  the  outside  of  the  con¬ 
figuration. 

Some  printing  for  debugging  at  this  point  is  optional 
on  SSW6.  Control  is  then  transferred  to  Statement  60  and 
all  shooting  of  rays  and  data  recording  are  complete. 

Statement  45 

IR  =  IRPRIM  Set  'this  region'  indicator  to  be 

the  next  region  to  be  encountered, 
in  preparation  for  continuing  the 
ray . 

KHIT  =  KHIT+1  A  running  count  of  number  of  com¬ 

ponents  hit  along  this  ray. 

Compute  "Dl"  the  distance  from  the  attack  plane  to 
first  contact  if  L  =  1. 

Statement  46 

This  is  the  calculation  for  Dl,  the  distance  between 
XBS  and  XP,  using  the  standard  distance  formula. 

Statement  19 

The  value  of  IDENT,  a  special  number  added  to  the  des¬ 
cription  of  each  region  and  unpacked  previously  from  its 
storage  place  in  MAGIC.  If  IDENT  =  0,  there  is  no  special 
material  in  this  region  and  go  to  35. 
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If  IDENT  is  negative,  it  can  only  be  a  space.  (-1)  is 
the  only  negative  legal  identification  number. 

If  IDENT  is  positive.  Statement  20  tests  for  IDENT  =  10 
which  indicates  armor  in  the  region.  A  flag  so  indicating, 
MARMR  =  1,  is  set  and  control  goes  to  35. 

At  Statement  20,  IDENT  -10  negative  indicates  a  space 
and  control  goes  to  31. 

Statement  31 

If  IDENT  =  1,  the  space  is  interior  volume  and  MVOL  =  1. 
If  IDENT  =  1,  the  space  is  exterior  volume  and  MVOL  is  not 
set. 

Statement  48 

L  =  L+l  count  another  intersection. 

GO  TO  10 

Continue  the  ray,  all  data  for  the  current  intersection 
have  been  processed. 

Statment  60 

At  the  point  when  Statement  60  is  reached  in  TRACK, 
the  following  has  occurred: 

1.  A  ray  from  some  point  in  GRID  square  (II,  J) 

called  XB  has  been  transversed  in  the  WB  direc¬ 
tion  until  the  outside  of  the  geometry  was 
reached. 


104 


2. 


At  each  intersection  with  the  ray  and  a  region, 
both  the  ITR  and  TR  arrays  were  used  to  store 
at  index  L  (intersection  number)  the  data  des¬ 
cribing  the  intersection. 

3.  Dl,  D2  distances  to  first  and  last  components 
were  computed  and  KHIT  is  the  number  of  vehicle 
components  hit. 

4.  We  now  are  ready  to  punch  the  data  associated 
with  this  ray,  i.e.,  ID  card  and  DATA  cards. 

If  (LMAX-1 )  =  0  there  was  no  intersection  with  the 
vehicle  geometry  and  TRACK  terminates  by  going  to  85. 

At  this  point,  program  SETUP  does  the  following: 

CALL  SETUP  (AAA,  J,  K,  N) 

IP(J)  =  Integer  portion  of  AAA 

IP (K)  =  'N'  decimal  digits  of  AAA  where  "IP" 
is  in  Common. 

Function  ISIGN  gives  the  Hollerith  blank  for  positive 
numbers  and  minus  for  negative  numbers . 

This  suffices  for  an  explanation  of  all  variables  up  to  IP(14), 
15,  16,  17  which  are  set  equal  to  the  integer  variables 
which  indicate  the  presence  of  skirting,  target  armor,  and 
interior  volume.  If  present,  target  is  always  1. 
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I 

Statement  62 

Subtract  one  from  KHIT  to  make  it  the  correct  value 
(don't  count  last  contact  with  outside). 

The  DO  330  Loop  resets  the  temporary  storage  place  of 
the  card  to  zero  prior  to  punching  of  a  "Data"  card. 
Statement  70  (+L  =  0) 

Initialize  L  and  TRAVEL  to  zero  to  start  ray  results. 
TRAVEL  =  TR ( 1 )  distance  to  first  intersection. 

The  DO  80  Loop  sets  up  logic  for  LMAX/2  data  cards. 

In  fact,  there  may  be  less  if  some  spaces  are  encountered. 
L  =  L+l:  begin  work  on  a  new  intersection. 


Test  L  >  LMAX : 

at  85 . 

Statement  71 

if  not,  continue,  if  yes,  terminate 

Call 

CALC  which 

will  compute: 

1. 

NIR  - 

Region  identification  (vehicle 
component) 

2. 

SIT  - 

Line-of-sight  distance 

3. 

ANGLE  - 

Angle  of  normal  with  ray  (from 

XB  in  WB) 

4. 

SN  - 

Normal  distance  through  region 

5. 

NTYPE  - 

Type  of  space  follows  component 
"NIR",  zero  if  none. 

6. 

SSPACE  - 

Line-of-sight  distance  through 
space,  zero  if  none. 

• 

CALC 

will  update 

L  if  a  space  is  encountered,  and  com- 

putes  all 

of  the  above  each  time  it  is  called. 
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Statement  101 


If  S SPACE  was  not  zero,  set  JCNT  =  JCNT+1  (to  keep 
track  of  how  many  spaces  were  hit) . 

The  DO  79  Loop  resets  IP  to  zero  and  processes  another 
data  card.  The  process  continues  until  no  data  cards  re¬ 
mained  to  be  punched.  TRACK  then  returns  to  GRID. 

Subroutine  TROPIC  (WP) 

The  routine  will  calculate  isotropic  direction  cosines 
WP ( 1 ) ,  WP ( 2 ) ,  WP ( 3 ) .  Each  call  to  TROPIC  will  deliver  a 
different  set  of  direction  cosines.  The  procedure  is  out¬ 
lined  below. 

1.  Pick  two  random  numbers  X-^,  X2  such  that 
0<Xlr  X2<1.0 

2.  Continue  picking  sets  of  X^,  X2  until 

x12+x22-1*0 

3 .  Compute : 

cos4>  =  X12-X22 
Xi2+X22 

sin$  =  2.0  X^.X2 
x!2+x22 

The  cos4>  and  sin$  are  the  sine  and  cosine  of  a 
random  angle  $. 
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4 .  Compute : 

CS  =  2.0*X3-1.0 

where  X3  is  a  random  number  0<_X3<.1.0, 
and  CS  is  the  cosine  of  a  random  angle. 

5„  The  direction  cosines  are: 

WP(1)  =  1-CS2  •  sin$ 

WP ( 2 )  =  1-CS2  ‘  cos  $ 

WP ( 3 )  =  CS 

Subroutine  UNI  (LOC,  13) 

This  routine  unpacks  the  item  13  from  a  single  compu¬ 
ter  word  packed  as  shown 

15  15  15  bits 

Not  used  II  12  13 

The  items  II  and  12  are  also  packed,  but  are  not  un¬ 
packed  by  this  routine. 

The  unpacking  is  done  by  the  following  statements: 

I  =  MASTER  (LOC) 

13  =  I-(I/32768)*32768. 

Subroutine  UN 3  (LW,  Jl,  J2 ,  J3) 

This  routine  unpacks  the  three  items  Jl,  J2,  and  J3 
which  are  stored  in  a  single  computer  word  in  the  array 
MASTER  at  location  LW. 
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The  three  items  are  packed  using  15  binary  bits  per 


item.  The  packed  word  appears  as: 

15  15  15 


Not  used  J1  J2  J3 

The  individual  items  are  extracted  by  multiplication 
and  division. 

Subroutine  WOWI  (JREG,  LSURF ,  NEX,  LTRUE) * 

The  logic  employed  in  subroutine  WOWI  is,  in  essence, 
the  heart  of  the  combinatorial  geometry  method.  WOWI ' s  only 
function  is  to  answer  the  following  question.  Given  a 
point  X  and  a  region  number  JREG,  does  the  point  lie  within 
the  region?  The  following  is  a  detailed  description  of  the 
method  used  by  WOWI  to  make  this  decision.  The  flow  chart 
appearing  after  this  discussion  closely  follows  the  actual 
coding  in  WOWI. 

Probably,  the  clearest  way  to  describe  WOWI  is  to 
follow  the  routine  through  a  simple  example.  Consider  the 
following  geometry,  consisting  of  three  spheres  (labeled 


*  The  arguments  LSURF  and  NEX  are  not  used  in  the 

present  version  of  the  code  but  appear  in  the  call 
statement  to  facilitate  future  expansion  of  the  code. 
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bodies  2,  3,  and  4)  enclosed  in  a  box  (labeled  body  1).  For 
clarity,  the  regions  have  been  designated  by  letters  A,  B, 

C,  and  D,  although  they  are  numbered  in  the  actual  code. 

Note  that  the  discontinuity  of  region  C  is  perfectly  legal. 
The  starting  point  and  current  position  of  a  ray  are  labeled 
XQ  and  X,  respectively. 


Before  proceeding  with  the  description  of  WOWI ,  let  us 
list  two  vital  blocks  of  information,  both  contained  in  the 
MASTER-ASTER  array.  The  first  block  contains  the  region 
descriptions  of  each  region  in  the  form  of  a  logical  combi¬ 
nation  of  bodies. 

Region  Bodies 

A  +1-2-3-4 

B  +2-3 
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Region 

C 

D 


Bodies 


OR (+2+3 )  OR (+4 ) 

+3-2 

The  meaning  of  these  equations  is  discussed  in  Section  2.1. 

The  second  piece  of  information  needed  by  the  code  is 
the  entering  and  leaving  table  for  each  body.  These  tell 
the  code  which  regions  a  ray  might  be  in  if  it  enters  a  given 
body  and  which  regions  the  ray  might  go  into  if  it  leaves  a 
given  body.  In  this  example,  the  table  would  appear  as 


follows . 

Body 

1 

2 

3 

4 


Entering  Leaving 

A  Escapes  from  geometry 

C  or  B  A  or  C  or  D 

C  or  D  A  or  B  or  C 

C  A  or  C 


Assume  that  the  ray  has  been  traced  from  its  starting 
point  XQ  to  a  point  X  on  the  surface  of  body  2 .  Gl  computes 
DIST,  the  total  distance  traveled  along  this  path  (=X-XQ) 
and  investigates  the  entering  and  leaving  table  for  body  2. 

It  finds  that  a  ray  entering  body  2  can  be  either  in  region 
C  or  in  region  B. 

Region  C  is  investigated  first  by  setting  JREG  =  C  and 
calling  WOWI .  WOWI  locates  the  region  description  of  C  in 
the  MASTER-ASTER  array  and  tests  whether  the  point  X  satis¬ 
fies  the  logical  equation  for  C.  This  is  done  in  the  follow- 
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ing  way.  Two  distances,  RIN  and  ROUT,  are  computed  for  each 
body  mentioned  in  the  description.  These  are  the  distances 
between  XD  and  the  point  where  the  ray  enters  (RIN)  or 
leaves  (ROUT)  the  body.  In  this  example,  RIN  and  ROUT  are 
computed  for  bodies  2,  3,  and  4  since  these  appear  in  the 
description  of  C.  Note,  however,  that  the  ray  does  not 
actually  intersect  bodies  3  and  4.  In  this  case,  ROUT  is 
set  equal  to  -10^0  for  these  bodies.  We  also  note  that  for 
body  2,  RIN  =  DIST,  since  point  X  is  where  the  ray  enters 
the  sphere.  ROUT  is  equal  to  RIN  plus  the  path  length  of 
the  ray  through  the  sphere. 

WOWI  now  determines  if  point  X  satisfies  the  descrip¬ 
tion  of  C  by  testing  each  body  in  C  against  the  following 
rules : 

1.  A  (+)  operator  is  valid  if  ... 

ROUT  >  0  and  RIN  £  DIST  <  ROUT 

2.  A  (-)  operator  is  valid  if  ... 

ROUT  =  -1050  or  DIST  <RIN  or  DIST  ROUT 

3.  An  (OR)  operator  is  valid  only  if  every  (+) 
and  (-)  within  the  (OR)  statement  is  valid. 

4 .  A  region  description  containing  one  or  more 
(OR)  statements  is  satisfied  if  any  one  of 
the  (OR)  statements  is  valid. 

5.  A  region  description  containing  no  (OR) 
statement  is  satisfied  only  if  every  (+) 
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6. 


and  (-)  operator  is  valid. 

A  sufficient  condition  for  point  X  to  be 
in  region  JREG,  is  that  the  region  des¬ 
cription  of  JREG  be  satisfied  (two  regions 
cannot  be  satisfied  for  the  same  point) . 

WOWI  now  applies  these  rules  to  the  first  (OR)  state¬ 
ment  for  region  C,  namely  OR(+2+3).  The  +2  is  valid  from 
rule  1,  since  DIST  =  RIN  and  ROUT  is  greater  than  zero. 

The  +3,  however,  is  not  valid  since  the  ray  misses  body  3 
and  ROUT  =  -10^0.  Thus,  the  first  (OR)  statement  is  invalid 
from  rule  3.  The  second  (OR)  statement,  OR(+4),  is  also 
not  valid  since  ROUT  =  -10^®  for  body  4.  Therefore,  from 
rule  4,  the  region  description  of  C  has  not  been  satisfied 
and  the  point  X  is  not  in  C.  WOWI  sets  LTRUE  =  0  and  returns 
to  Gl.  The  value  of  zero  info'rms  G1  that  region  C  has  not 
been  satisfied.  Gl  now  sets  JREG  =  B  and  calls  WOWI  again. 

The  region  description  for  B  is  now  investigated.  The 
+2  is  valid  as  seen  above  and  the  -3  is  also  valid  since, 
for  body  3,  ROUT  =  -105®.  Therefore,  the  description  of  B 
is  satisfied  by  rule  5.  WOWI  sets  LTRUE  =  1,  informing  Gl 
that  the  point  X  is  in  region  B.  This  completes  WOWI ' s  task 
until  a  new  point  X  has  been  computed  by  Gl . 
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Subroutine  XDIST  (XA,  XB) 


This  routine  computes  the  distance  between  point  XA  and 
point  XB.  Both  XA  and  XB  are  arrays  of  length  3. 

The  routine  is  a  function  subprogram  which  computes  the 
distance  between  two  points  using  the  familiar  distance 
formula  shown  below. 

Distance2  =  (XA (1) -XB (1) ) 2  +  (XA (2) -XB (2) ) 2 

+  (XA(3) -XB (3) ) 2 

where  XA(1) ,  XA(2) ,  XA(3)  are  the  X,  Y,  Z  coordinates  of 
the  point. 

This  routine  is  used  by  the  'DCOSP'  subroutine  as  part 
of  the  direction  cosine  calculation.  The  routine  is  also 
used  in  subroutine  CALC  as  part  of  the  normal  distance  com¬ 
putations  . 

3.3.2 _ Description  of  Output 

The  output  consists  of  a  repetition  of  input,  and  com¬ 
puted  results.  The  items  of  output  are  listed  in  order  of 
appearance. 

1.  Date  Line.  The  date  as  read  in  on  the  date 
card  which  preceded  the  input  deck. 

2.  Time  Line.  The  time  is  printed  in  seconds  and 
is  an  elapsed  time  indicator. 

3.  Comment  Line.  The  comment  card  which  allows 
the  user  to  title  the  problem. 
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4. 


Parameters .  The  input  parameters  are  listed. 


5.  Scale  Factor.  The  scaling  number  used  to 
scale  the  geometry. 

6 .  RPP  Data .  The  unsealed  RPP  data  as  read  into 
the  computer . 

7.  Triplet  Data.  Repeated  as  in  the  input  deck. 

8.  Scalar  Data.  Repeated  as  in  the  input  deck. 

9 .  Body  Data .  The  unsealed  body  data  given  as 
input,  the  bodies  have  been  ordinarily  numbered. 

10.  Variable  Location  Line.  This  line  gives  the 
location  in  the  MASTER  array  of  positioning 
constants . 

11.  Region  Combination  Data.  This  is  a  repetition 
of  the  input  region  data. 

12.  Total  Room  for  Geometry  Data.  This  is  the 
number  of  words  used  in  the  MASTER  array  to 
contain  the  geometry. 

13.  Entering  and  Leaving  Tables.  The  entering  and 
leaving  table,  as  calculated  for  each  region, 
and  its  location  in  the  MASTER  array  are  re¬ 
printed  here  (see  Section  3.3.1,  the  WOWI 
routine) . 

14.  MASTER-ASTER  Array.*  This  is  a  printed  copy 


* 


This  appears  only  if  "IPRIN"  in  Column  60  on  the 
parameter  input  card  was  nonzero. 


) 


15. 


16. 


17. 


18. 


in  both  integer  and  floating  form  of  the 
MASTER  array.  There  are  three  entries  per 
line  separated  by  a  dollar  sign. 

Region  Code  Identifiers.  This  is  the  printed 
copy  of  the  input  which  specifies  region 
identifier  and  space  type. 

Number  of  Aspect  Angles.  Repeated  from  input . 
Indicates  how  many  different  attack  planes 
are  to  be  processed. 

GRID  Specifications.  This  is  a  reprinting  of 
input  to  the  GRID  program,  azimuth  and  eleva¬ 
tion  are  printed  twice,  first  in  degrees  and 
then  in  radians. 

Ray  Results.  This  is  the  output  from  the 
TRACK  program  and  has  three  formats . 

a.  A  line  beginning  RAY  contains 
cell  number  X-Y  position,  coor¬ 
dinates  of  the  ray  origin  point, 
and  the  ray  direction  cosines. 

b.  Identification  card* 

c.  Data  cards.* 


Detailed  formats  of  the  identification  and  data 
cards  are  given  on  the  following  pages. 
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IDENTIFICATION  CARD 


1. 

Col 

1 

-  Col 

6 

X*  coordinate  of  grid  square 
(inches) . 

2. 

Col 

8 

-  Col 

13 

Y  coordinate  of  grid  square 
(inches) . 

3. 

Col 

14 

-  Col 

16 

A  two-digit  uniform  random 
number.  (Column  14  is  always 

blank. ) 


4.  Col  18  -  Col  24 


5.  Col  26  -  Col  32 


6.  Col  33  -  Col  34 


The  perpendicular  distance  from 
the  first  component  contact  to 
the  X,  Y  plane  (inches) . 

The  perpendicular  distance  from 
the  last  component  contact  to 
the  X,  Y  plane  (inches) . 

Indicates  if  skirting  is  present 
in  the  grid  square.  (A  one 
indicates  yes,  a  zero  indicates 
no . ) 


7. 

Col 

35  -  Col 

36 

Indicates  if  there  is  a  target 
hit  in  the  grid  square. 

8. 

Col 

37  -  Col 

38 

Indicates  if  there  is  armor  shell 
present  (turret  or  hull) . 

9. 

Col 

39  -  Col 

40 

Indicates  if  there  is  interior 
volume  present. 

10. 

Col 

41  -  Col 

43 

The  total  number  of  components 
encountered  along  the  line-of- 
sight  of  the  penetrator . 

11. 

Col 

45  -  Col 

47 

X  divided  by  4 .  (X  being  the 
coordinate  of  the  grid  square.) 

12. 

Col 

48  -  Col 

50 

Y  divided  by  4 .  (Y  being  the 
coordinate  of  the  grid  square.) 

(Columns  7, 

17,  25, 

44  and  51  through  80  are  left  blank. 

Note  that  "X"  and  "Y"  refer  to  the  virtual  horizontal 
and  vertical  on  the  attack  plane. 
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DATA  CARD 


1. 

Col 

1 

-  Col 

4 

A  vehicle  component. 

• 

2. 

Col 

5 

-  Col 

11 

The  line-of-sight  distance 
through  the  component  (inches) 

• 

3. 

Col 

12 

-  Col 

18 

The  normal  thickness  of  the 
component  (inches) . 

4. 

Col 

19 

-  Col 

24 

The  angle  of  obliquity  with 
respect  to  the  normal  to  the 
component  (degrees) . 

5. 

Col 

25 

-  Col 

27 

A  type  of  space  following  the 
component . 

6. 

Col 

28 

-  Col 

34 

The  line-of-sight  distance 
through  the  space  (inches) . 

7. 

Col 

35 

-  Col 

38 

Same  as  1 . 

8. 

Col 

39 

-  Col 

45 

Same  as  2 . 

9.  Col  46 
10.  Col  53 


Col  52 
Col  58 


Same  as  3 . 
Same  as  4 . 


11. 

Col 

59 

-  Col 

61 

12. 

Col 

62 

-  Col 

68 

Same  as  5. 
Same  as  6 . 


13. 

Col  70  - 

Col 

72 

14. 

Col  73  - 

Col 

75 

15. 

Col  77 

16. 

Col  78 

X  divided  by  4 .  (X  is  a  coor¬ 
dinate  of  the  grid  square.) 

Y  divided  by  4 .  (Y  is  a  coor¬ 
dinate  of  the  grid  square.) 

Vehicle  designation. 

Azimuthal  angle  of  attack.  (A 
3  indicates  30°. ) 


17.  Col  79  -  Col  80  The  cumulative  sum  of  components 

encountered  along  the  line-of- 
sight  of  the  penetrator. 

(Columns  69  and  76  are  left  blank.) 
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3.3.3 _ Glossary  of  Important  Variable  Names 

The  following  pages  contain  a  listing  of  the  important 
variables  used  throughout  the  MAGIC  program.  For  each  var¬ 
iable  name  the  "common  block,"  if  any,  and  a  description 
of  the  variable's  usage  is  given.  In  addition,  for  each 
common  block  a  list  of  subroutines  using  the  common  block 
is  given. 


*LIST  OF  IMPORTANT 

VARIABLES  FOR  MAGIC 

Variable 

Name 

Labeled 

Common 

Definition 

Dummy 

Blank 

common 

An  array  of  250  used  to  get 
proper  location  for  unpacking 
the  MASTER-ASTER  array 

ASTER 

Blank 

common 

Contains  floating  point  num¬ 
bers  of  the  main  array 

XB 

Param 

X,  Y,  Z  coordinates  of  ray 
origin 

WB 

Param 

Direction  cosines  of  ray 

E 

Param 

Not  used* 

IR 

Param 

Region  number  tracking  from 

T 

Param 

Not  used 

IDET 

Param 

Not  used 

F 

Param 

Not  used 

NHIST 

Param 

Not  used 

WC 

Param 

Not  used 

SP 

Param 

Not  used 

WP 

Param 

Not  used 

LBASE 

Geometry 

Starting  location  of  the  aster, 
master  array  usually  one  (1) 

RIN 

Geometry 

Distance  to  entering  body 
intersection 

ROUT 

Geometry 

Distance  to  leaving  body 
intersection 

LRI 

Geometry 

Entering  surface  number 

LRO 

Geometry 

Leaving  surface  number 

*  Some  variables  appearing 

in  the  nuclear  code ,  SAM 

in  Common  are  used  only 
-C. 
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Variable 

Labeled 

Definition 

Name 

Common 

PINF 

Geometry 

Value  of  l.E+50  (used  to  rep¬ 
resent  infinity) 

IERR 

Geometry 

Flag  to  indicate  an  error  in 
the  geometry  input,  also  used 
for  number  of  errors  in  Gl 

DIST 

Geometry 

Total  distance  traveled  from 
ray  origin 

NRPP 

UNCGEM 

Number  of  regular  rectangular 
parallelepipeds 

NTRIP 

UNCGEM 

Number  of  triplets 

NSCAL 

UNCGEM 

Number  of  scalars 

NBODY 

UNCGEM 

Number  of  bodies 

NRMAX 

UNCGEM 

Maximum  number  of  regions 

LTRIP 

UNCGEM 

Location  of  triplet  data 

LSCAL 

UNCGEM 

Location  of  scalar  data 

LREGD 

UNCGEM 

Location  of  region  data 

LDATA 

UNCGEM 

Address  of  data  (temporary) 

LROUT 

UNCGEM 

Location  of  ROUT  surface 
number 

LRIN 

UNCGEM 

Location  of  RIN  surface 
number 

LIO 

UNCGEM 

Address  in  ASTER  of  temporary 
data  for  Gl 

LOCDA 

UNCGEM 

Location  of  data  in  MASTER 
array 

115 

UNCGEM 

Has  the  value  of  2  raised  to 
the  15th  power  (used  to  pack 
and  unpack  the  middle  word  in 
the  MASTER  array) 
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Variable 

Labeled 

Name 

Common 

Definition 

130 

UNCGEM 

Has  the  value  of  2  raised  to 

the  30th  power  (used  to  pack 
and  unpack  data  in  the  MASTER 
array) 


LBODY 

UNCGEM 

Location  of  body  data 

NASC 

UNCGEM 

Current  body  number  (-1  to 
start  ray) 

KLOOP 

UNCGEM 

Internal  ray  counter 

XS 

TEMPO R 

Temporary  storage  3  cells 

X 

TEMPOR 

Coordinates  of  a  point  of 
an  RPP 

IX 

TEMPOR 

Converted  integer  numbers 

IT 

TEMPOR 

Temporary  storage 

IA 

TEMPOR 

Temporary  storage 

IN 

TEMPOR 

Temporary  storage 

LSURF 

LSU 

Surface  number  of  body  surface 
hit  negative  means  leaving 

Dl 

GTRACK 

Distance  from  center  grid 
square  to  first  vehicle  com¬ 
ponent 

D2 

GTRACK 

Distance  to  last  component 

KHIT 

GTRACK 

Number  of  components  hit  on 
one  ray 

TR 

GTRACK 

Storage  array  for  recording 
ray  contacts 

XBS 

GTRACK 

Original  position  of  ray  on 
grid  square 

IRS TART 

GTRACK 

Starting  region  of  grid  plane 
(at  ENGTH) 
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Variable 

Labeled 

Name 

Common 

Definition 

IENC 

GTRACK 

Region  in  which  geometry  is 
enclosed  (same  as  IRSTART) 

ITR 

GTRACK 

Same  as  TR 

CA 

GTRACK 

Cosine  angle  A 

CE 

GTRACK 

Cosine  angle  E 

SA 

GTRACK 

Sine  angle  A 

SE 

GTRACK 

Sine  angle  E 

NIR 

CALC 

Next  region 

SIN 

CALC 

Line-of-sight  distance  through 
a  component 

ANGLE 

CALC 

Oblique  angle  between  normal 
and  ray 

NTYPE 

CALC 

Type  of  component 

S SPACE 

CALC 

Line-of-sight  distance  through 
a  space 

L 

CALC 

Internal  intersection  counter 

XS 

CALC 

Same  as  XB ,  used  by  TRACK 
and  CALC 

WS 

CALC 

Same  as  WB,  used  by  TRACK 
and  CALC 

TRAVEL 

CALC 

Distance  along  ray  so  far, 
used  by  TRACK 

SN 

CALC 

Normal  thickness 

V 

CALC 

Position  on  grid  plane  X 
direction 

H 

CALC 

Position  on  grid  plane  Y 
direction 

LIRFO 

WALT 

Location  of  component  iden¬ 
tification  codes  in  MASTER 
array 
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Variable 

Name 


Labeled 

Common  Definition 


IP 


SETUX 


Output  array  for  punch  cards, 
used  in  TRACK. 


LIST  OF  ROUTINES  WHICH  CONTAIN  EACH  COMMON 


BLANK  COMMON 

COMMON/PARAM 

COMMON/METRY 

MAGIC 

MAGIC 

RPP 

UN  3 

GRID 

RPP  2 

UNI 

TRACK 

BOX 

CALC 

CALC 

SPH 

GEN  I 

GEN  I 

RAW 

RPPIN 

S 

RCC 

S 

Gl 

ELL 

ALBERT 

WOWI 

REC 

G1 

RPP 

TRC 

WOWI 

RPP  2 

ARB 

RPP 

BOX 

RPP2 

SPH 

COMMON/GTRACK 

BOX 

RAW 

SPH 

RCC 

OPENK 

RAW 

ELL 

GRID 

RCC 

REC 

TRACK 

ELL 

TRC 

CALC 

REC 

ARB 

TRC 

COMMON /UNCGEM 

ARB 

COMMON/WALT 

MAGIC 

COMMON/SCALE 

MAGIC 

GRID 

GRID 

TRACK 

MAGIC 

TRACK 

CALC 

GEN  I 

CALC 

GEN  I 

RPPIN 

Gl 

RPPIN 

SEE3 

S 

ALBERT 

COMMON/METRY 

ALBERT 

Gl 

COMMON/LSU 

MAGIC 

WOWI 

GRID 

RPP 

G1 

TRACK 

RPP2 

TRACK 

CALC 

BOX 

GEN  I 

SPH 

COMMON/CALC 

RPPIN 

RAW 

S 

RCC 

GIRD 

ALBERT 

ELL 

TRACK 

Gl 

REC 

CALC 

WOWI 

TRC 

ARB 

COMMON/TEMPOR 

COMMON/SETUX 

GEN  I 

SETUP 

TRACK 
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3 . 4  PROGRAM  IMPLEMENTATION 


The  MAGIC  program  operates  in  two  modes.  The  first  is 
a  normal  mode  in  which  a  geometric  description  will  be  read 
in  and  processed  and  aspect  angle  data  produced.  This  mode 
will  also  create  a  magnetic  tape  containing  the  processed 
geometric  data.  The  second  mode,  called  a  production  mode, 
will  read  the  magnetic  tape,  instead  of  the  actual  descrip¬ 
tion,  and  then  perform  aspect  angle  calculations.  Thus  the 
normal  mode  consists  of  input  processing  and  aspect  angle 
processing.  The  production  mode  is  just  aspect  angle  proc¬ 
essing  . 

Section  3.4.1  will  discuss  the  operating  procedure  for 
the  CDC-6600.  Tape  utilization  will  be  discussed  in  Sec¬ 
tion  3.4.2. 

3.4.1 _ Operating  Instructions 

The  following  list  will  detail  the  system  control  cards 

that  must  precede  the  data  cards. 

JOB  CARD  (The  job  card  is  described  in 

detail  in  the  systems  manual.) 

REQUEST  TYYY . 

REWIND  (TYYY) 

COPYBF  (TYYY,  MAGIC) 

REWIND  (MAGIC) 

REQUEST  TXXX ,  TAPE  4. 

REWIND  (TAPE  4) 

MAGIC 
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EXIT 


REWIND  (TAPE  4) 

REWIND  (TYYY) 

RETURN  (TAPE  4) 

RETURN  (TYYY) 

EOR  (CARD) 

Please  note: 

YYY  should  be  a  Cims  Tape  Number  assigned  to  the  tape 
which  contains  the  binary  record  of  MAGIC. 

XXX  should  be  the  Cims  Tape  Number  assigned  to  the  tape 
which  will  or  does  contain  the  processed  geometry. 

All  control  cards  begin  in  card  Column  1. 

Assume  that  the  input  data  have  been  prepared  according 
to  the  formats  specified  in  Section  3.2.3.  It  is  necessary 
to  punch  only  one  new  card.  This  card,  a  date  card,  will 
determine  which  mode  is  to  be  used.  If  a  normal  operation 
is  desired,  punch  the  date  in  Columns  12-20  and  leave  the 
rest  of  the  card  blank.  If  production  mode  is  desired,  punch 
a  "2"  in  Column  10  and  the  date  in  Columns  12-20  and  leave 
the  rest  of  the  card  blank.  (Date  should  be  "04/07/67"  for 
April  7,  1967.) 

Having  punched  the  appropriate  date  card,  if  using  the 
normal  mode  all  input  data  is  required.  If  using  the  pro¬ 
duction  mode,  only  the  region  identifier  and  aspect  data 
cards  are  needed.  In  both  cases  an  end-of-file  card  is  the 
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last  card.  Figs.  3.3  and  3.4  illustrate  the  two  deck  con¬ 
figurations  . 


I 


3.4.2 


Tape  Utilization 
The  MAGIC  program  requires  a  "program"  tape  containing 
the  binary  program.  This  tape  is  created  by  compiling  the 
MAGIC  symbolic  deck. 

A  tape  which  will  contain  processed  geometry  data  is 


also  required. 

3.4.3  Error  Messages 

Routine  Message 

MAGIC  TERMINATION  ON  GEOMETRY 

INPUT  ERROR 


TRACK  TRACK  ERROR 


CALC  BAD  ITYPE  IN  CALC 

RETURN  TO  CALC 


CALC  STMNT  304  STOP 


CALC 


TRACK  ERROR 


GENI  ITYPE  DID  NOT  MATCH 

AN  ITY 


Explanation 

There  should  be  at 
least  one  previous 
error  message,  fix 
what  is  wrong,  try 
again 

More  than  500  compo¬ 
nents  encountered  on 
one  ray,  change  pro¬ 
gram  (big  job) . 

Indicates  either  error 
in  routine  OPENK  or 
dimension  of  MASTER- 
serious  error 

A  TRC  with  two  equal 
radii  was  encountered. 
Make  it  a  RCC.  Try 
again . 

An  illegal  surface 
number  in  a  RAW. 
Serious  error  indi¬ 
cates  bit  failure 
probably. 

The  body  name  on  last 
card  is  spelled  in¬ 
correctly. 
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Routine 


GEN  I 


Message 
STMNT  290  GENI 


GEN  I 


ERROR  IN  REGION 
INPUT  XX 


GENI 

GENI 

GENI 

RPPIN 


ILLEGAL  OPERATOR  IN 
ABOVE  CARD 

STMNT  490  STOP 

STMNT  555  STOP 

ERROR  IN  DESCRIPTION 


FLOCON 


ERROR  IN  FLOCON  NO 
DECIMAL  POINT 


FLOCON 


ERROR  IN  FLOCON  NO 
EXPONENT 


DIGCON  ERROR  IN  SUBDIGCON 


G1 


ERROR  IN  Gl  AT  140 


Gl 


ERROR  IN  Gl  AT  150 
(REGION  #) 


Explanation 

Triplet  input  at¬ 
tempted  for  an  ARB, 
this  is  illegal,  use 
other  form. 

Indicates  that  region 
XX  incorrect ,  prob¬ 
ably  a  body  number 
is  mispunched. 

Pertains  to  region 
description . 

Due  to  previous  error 

Due  to  previous  error 

The  RPP  just  printed 
is  not  in  the  min  max 
format  required. 

The  body  just  printed 
needs  decimal  points 
(even  on  zeros) . 

An  E  format  input 
number  on  the  last 
printed  card  has  no 
exponent . 

An  integer  has  an 
illegal  character 
(nonnumeric  or  blank) 

Bad  surface  number 
unpacked  -  serious 
error  could  be  bits 
dropped  or  added. 

No  bodies  are  entered 
or  left  which  are 
mentioned  in  this 
region.  Some  error 
of  omission  in  region 
data  probably. 
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Routine 


Message 


Explanation 


G1  ERROR  IN  Gl  AT  640  None  of  the  regions 

mentioned  in  the 
entering  or  leaving 
table  are  entered. 

An  error  of  omission 
in  region  data. 

3.4.4 _ Sense  Switch  Options 

A  debugging  feature  of  the  program  is  available  under 
the  control  of  sense  switch  6.  If  sense  switch  6  is  down, 
a  printout  of  intermediate  results  will  occur.  The  printout 
will  be  intermingled  with  actual  aspect  angle  outputs.  De¬ 
tailed  discussions  of  the  printouts  will  be  found  in  the 
discussions  of  TRACK  and  CALC  in  Section  3.3.1. 

3 . 5  SAMPLE  PROBLEM 

A  sample  problem  illustrating  the  usage  of  the  MAGIC 
program  is  given  on  the  following  pages.  The  illustration 
consists  of  a  sample  printout  of  computer  results  and  a 
series  of  figures  describing  the  geometry. 

The  vehicle  being  described  consists  of  an  outer  shell, 
composed  of  six  arbitrary  polyhedrons,  and  a  variety  of 
bodies  within  the  vehicle.  Fig.  3.5  consists  of  three  views 
of  the  vehicle  (front,  side,  top).  Fig.  3.6  shows  the  lay¬ 
out  of  the  outer  shell  and  an  interior  "bulkhead."  Fig. 

3.7  shows  the  organization  of  the  interior  configuration. 

The  numeric  identifiers  in  the  figures  denote  the  body  num¬ 
bers  used  in  defining  the  problem. 
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The  computer  printout  is  annotated  for  illustration 
purposes.  A  more  detailed  description  of  the  output  is 
given  in  Section  3.3.2. 

For  the  purposes  of  brevity,  only  the  first  87  words 
of  the  MASTER  array  have  been  given  in  the  sample  output. 
In  addition,  some  ray  outputs  have  been  deleted  from  the 
printout . 

The  azimuthal  and  elevation  angles  in  the  problem  are 
both  zero.  Thus  the  rays  are  fired  from  the  positive  X- 
coordinate  to  the  negative  X-coordinate  (as  shown  in  posi¬ 
tion  (1)  of  Fig.  3.1). 

The  following  describes  the  annotated  items  of  the 
computer  output: 

Item  1  The  date  card. 


Item 

_2 

The  internal  clock  time  at  start 
of  processing 

Item 

_3 

Printout  of  the  input  parameter  card. 

Item 

4 

The  RPP  data. 

Item 

_5 

The  triplet  and  scalar  data. 

Item 

_6 

The  body  data.  Note  that  the  left-most 
digits  (as  circled)  are  sequential  body 
numbers  as  calculated  by  the  program. 

Item 

Intermediate  storage  allocation  data. 

Item 

_8 

Region  description  data.  The  parenthesis 
are  printed  for  readability  and  do  not 
appear  on  the  input  cards. 

Item 

_9 

The  total  room,  in  the  MASTER  array, 
for  this  problem. 

t 
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Item  10  The  entering  and  leaving  tables.  These 
tables  are  calculated  from  the  region 
description  data.  The  left-most  number 
is  the  body  number.  The  second  and  third 
numbers  are  the  first  and  last  locations, 
in  the  MASTER  array,  containing  the  pos¬ 
sible  regions.  The  rest  of  the  numbers 
are  the  possible  regions. 

Item  11  A  listing  of  the  MASTER  array.  Three 
words  per  line  are  printed.  Each  word 
of  the  array  is  printed  twice.  First,  as 
three  unpacked  integers ,  and  then  as  a 
floating  point  number. 

Item  12  The  identification  and  space  codes  for 
each  region. 

Item  13  The  attack  plane  data. 

Item  14  The  ray  data.  Note  that  the  first  rays 
did  not  hit  the  vehicle  and  no  ray  data 
cards  were  produced. 

Item  15  The  horizontal  and  vertical  attack  plane 
coordinates . 

Item  16  The  X-Y-Z  coordinates  of  the  starting 
point  of  the  ray. 

Item  17  The  direction  cosines  of  the  ray. 

Item  18  The  ray  data  cards  as  described  in 

Section  3.3.2. 
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Configuration  of  Sample  Vehicle 
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4 .  DESCRIPTION  OF  THE  SAM-C  MONTE  CARLO  PROGRAM 


INTRODUCTION 

The  SAM-C  program  described  below  is  based  in  large 
measure  on  the  UNC-SAM-2  Monte  Carlo  program  prepared  by 
United  Nuclear  Corporation  (with  MAGI  as  subcontractor)  for 
Aberdeen  Proving  Ground.*  The  primary  difference  between 
UNC-SAM-2  and  SAM-C  is  the  geometrical  description  tech¬ 
nique  employed.  SAM-C  uses  combinatorial  geometry  and  is 
therefore  capable  of  representing  more  complex  assemblies. 
To  use  this  geometry  capability  a  number  of  modifications 
were  made  in  the  logic  and  storage  requirements  of 
UNC-SAM-2.  In  addition,  a  ray-tracing  volume  calculation 
routine  was  added  since,  for  many  of  the  shapes  produced 
by  the  combinatorial  geometry,  it  is  impractical  to  deter¬ 
mine  the  volume  analytically.  All  the  nuclear  interaction 
routines  of  UNC-SAM-2  are  unchanged. 

*  Troubetzkoy,  E.S.:  UNC-SAM-2 :  A  FORTRAN  Monte 

Carlo  Program  Treating  Time-Dependent  Neutron  and 

Photon  Transport  through  Matter,  UNC-5151  (Sept. 1966). 


*  AfWvl*  OaaIo  N* ujUon  ^flhMA 
^  ^  '  *-Tr*wvfB.A  Cod# 

4 . 1  GENERAL  DISCUSSION 

^OfVUO.*  p 

SAM-C  is  avMonte  Carlo  program,  written  in  FORTRAN, 
which  calculates  the  time-dependent  transport  of  neutrons 

ini  i«i 

or  gamma  rays  through  matter.^  l£*’is  composed  of  a  series 
of  independent  routines  which  perform  the  following  four 
basic  functions : 

1.  Process  cross-section  data 

2.  Process  geometry  data 

3.  Perform  the  transport  calculation 

4.  Edit  the  results. 

Basically,  the  program  requires  as  input  a  geometry 
specification  Csee-Section^Z)  ,  the  elemental  composition  of 
each  region,  and  a  specification  of  the  location  and  time- 
energy-angular  distribution  of  the  radiation  source.  The 
program  selects  individual  particles  from  the  given  source 
distribution  and  tracks  them  through  a  series  of  inter¬ 
actions  within  the  geometry  until  such  time  as  the  particle 
history  is  terminated^  The  tracking  of  a  particle  can  be 
terminated  for  any  of  the  following  reasons. 

1.  The  energy  of  the  particle  after  an  inter¬ 
action  falls  below  a  specified  "cutoff  energy." 

2.  The  elapsed  time  spent  by  the  particle  in 
traversing  the  geometry  exceeds  a  specified 
"cutoff  time." 
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3.  The  particle  escapes  from  the  geometry 
(crosses  an  external  boundary) . 

4.  The  particle  is  "killed."  This  procedure 
will  be  explained  in  the  section  dealing 
with  the  importance  sampling  techniques 
employed  in  the  program. 

For  each  region  traversed  by  a  given  particle,  the 
code  computes  the  flux  per  unit  time  per  unit  energy  as  a 
function  of  energy  and  time.  The  flux  contribution  for  a 
given  particle  is  defined  as  its  expected  total  path  length 
contribution  in  a  region  divided  by  the  volume  of  the  region. 
Individual  particle  flux  contributions  are  accumulated  so 
that  the  end  result  of  the  tracking  process  is  the  total 
flux  in  each  region  in  a  specified  group  of  energy  and  time 
bins.  At  the  users’  option  the  problem  also  can  be  made 
time  independent.  The  code  has  the  additional  capability 
of  being  able  to  compute  fluxes  at  specified  points  within 
the  geometry,  as  well  as  in  finite  regions.  The  use  of  this 
option  is  discussed  later  in  Section  4.2.4. 

The  above  description  of  the  SAM-C  program  is,  of 
course,  a  very  simplified  view  of  the  computational  proce¬ 
dure.  The  following  sections  provide  a  more  detailed,  al¬ 
though  nonmathematical ,  description  of  each  part  of  the 
computation . 


4 . 2  INPUT  REQUIREMENTS 

4.2.1  _ Cross  Sections  and  Region  Compositions 

Generally,  the  user  of  the  program  will  have  at  his 
disposal  an  Element  Data  Tape  (EDT)  which  contains,  for 
every  isotope  in  the  problem,  a  set  of  energy-dependent 
interaction  cross  sections.  The  user  must  then  specify 
each  of  the  material  compositions  appearing  in  the  problem. 

A  composition  is  defined  in  terms  of  atomic  concentrations 
(in  units  of  1024  atoms/cm2)  of  each  isotope  in  the  compo¬ 
sition.  These  may  be  calculated  from  the  expression: 

1024  x  Avogadro's  number  x  mass  density/atomic  weight. 
For  compounds  or  mixtures  the  concentration  of  each  compo¬ 
nent  must  be  specified.  In  addition,  each  composition  must 
be  identified  by  a  composition  number. 

This  input  is  processed  in  conjunction  with  the  EDT  by 
the  BAND  routine,  which  generates  an  Organized  Date  Tape 
(ODT) .  The  ODT  contains  total  macroscopic  cross  sections 
and  absorption  and  scattering  probabilities  for  each  composi¬ 
tion.  During  the  tracking  process  this  information  is  used 
to  determine : 

1.  The  probability  that  a  particle  has  an  inter¬ 
action  in  a  region  of  given  composition. 

2.  The  element  with  which  the  particle  interacts. 

3.  The  type  of  interaction  (absorption,  elastic 
scattering,  etc.)  occurring. 
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•  / 

4 .  The  energy  and  direction  of  the  particle 
after  interaction. 

4.2.2  _ Geometry  Input 

The  specification  of  the  geometry  has  been  treated  in 
Section  2 ,  where  the  point  was  made  that  the  same  geometry 
input  can  be  used  in  both  MAGIC  and  SAM-C .  It  should  be 
noted,  therefore,  that  if  both  codes  are  to  be  applied  to 
a  given  vehicle  (or  any  geometry,  for  that  matter)  important 
regions  for  the  nuclear  calculation  (i.e.,  air,  ground) 
should  appear  in  the  geometry  specification. 

4.2.3  _ Importance  Sampling 

A.  General 

Importance  sampling  or  "weighting"  provides  the  user 
with  a  powerful  method  of  controlling  the  direction  and/or 
energy  of  particles  in  the  problem.  The  purpose  of  a  par¬ 
ticular  problem,  for  example,  may  be  to  calculate  the  fast- 
neutron  flux  in  a  given  region  within  the  geometry.  Under 
normal  circumstances,  the  probability  of  a  source  neutron 
reaching  that  region  at  high  energy  may  be  quite  small,  re¬ 
quiring  a  vast  number  of  source  neutrons  to  be  tracked  before 
an  adequate  statistical  estimate  of  the  flux  is  obtained. 
However,  with  proper  particle  weighting  the  code  can  be  made 
to  concentrate  only  on  those  fast  neutrons  having  the  best 
chance  of  reaching  the  chosen  region.  Conversely,  the  code 
will  spend  little  time  tracking  neutrons  which  are  either 
traveling  in  the  wrong  direction  or  are  at  relatively  low 
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energy . 


The  program  determines  the  relative  importance  of  a 
particle  from  a  parameter  called  the  weight.  The  total 
weight  (W)  of  a  particle  is,  in  turn,  determined  from  a 
combination  of  three  quantities  called  region  weight  (W^) , 
angular  weight  (Wj^)  ,  and  energy  weight  (W„)  ,  where 
^  =  x  ^n.  x  Wjj .  Values  of  W^,  Wn.,  and  are  given  as 
input.  The  following  brief  discussion  should  provide  the 
user  with  a  better  insight  into  how  these  weights  are 
actually  used  by  the  code. 

A  quantity  F  is  assigned  to  each  particle.  The  value 
of  F  is  1.0  for  a  source  particle.  The  code  calculates  the 
probability  that  the  particle  will  reach  the  boundary  of 
the  source  region  along  its  flight  path  without  collision. 
This  value  is  called  F".  The  probability  that  a  collision 
takes  place  in  the  region  is  then  1-F".  The  code  picks  a 
random  number  and  with  probability  1-F"  creates  a  collision 
point  inside  the  source  region  at  a  point  picked  from  an 
exponential  probability  distribution.  The  source  particle 
history  is  not  terminated  but  continues  to  the  boundary  of 
the  region.  After  going  through  the  collision  mechanics,  a 
new  particle  (latent)  will  be  started  at  the  collision 
point  after  the  original  source  particle  has  been  completely 
tracked. 
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Suppose  that  the  source  particle  is  leaving  region  1 
where  the  weight  is  and  entering  region  2  where  the 
weight  is  W2 .  At  the  boundary,  the  ratio  of  weights  Wi/W2 
is  multiplied  bv  F"  and  the  particle  is  given  a  starting 
value  of  F  =  F"  W1/W2  in  region  2.  The  probability  of  the 
particle  reaching  the  next  boundary  of  region  2  uncollided 
is  calculated  and  multiplied  by  F  to  obtain  a  new  value  of 
F".  In  region  2  a  number  of  collision  points  approximately 
equal  to  F-F"  will  be  produced.  Notice  that  if  W2  is  small 
compared  to  Wp  a  large  number  of  latent  particles  will  be 
produced  along  the  track  of  the  source  particle  in  region 
2.  Conversely  if  W2  is  large  compared  to  W]_,  the  prob¬ 
ability  is  high  that  no  latents  will  be  produced  since  both 
F  and  F"  will  be  small  compared  to  one.  In  fact,  a  para¬ 
meter  Fz  is  an  input  parameter  to  the  program.  If  F,  on 
entry  into  a  new  region,  is  lower  than  Fz,  a  random  number 
between  zero  and  one  is  picked.  If  the  number  is  greater 
than  F  the  history  is  terminated.  If  it  is  lower  than  F 
the  history  is  continued  with  F  set  equal  to  one. 

Thus  by  establishing  weight  sets  properly,  increased 
numbers  of  collisions  can  be  forced  to  occur  in  important 
regions,  and  in  addition,  the  original  source  particles  will 
continue  to  propagate  through  the  geometry. 

Without  going  into  detail  it  can  be  stated  that  a  small 
value  of  Fz  minimizes  the  number  of  kills  (increases  problem 
running  time) .  A  large  value  maximizes  the  kills  (decreases 
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running  time  per  history)  but  increases  the  variance  (or  % 
accuracy)  of  the  answers,  requiring  more  source  particles 
to  be  run.  The  optimum  value  of  Fz  will  generally  lie  in 
the  range  from  0.01  to  0.1. 

In  order  to  facilitate  input  preparation,  the  three 
components  of  the  total  weight  will  now  be  discussed 
separately. 

B.  Region  Weights 

A  region  weight  (WR)  must  be  specified  for  every  region 
in  the  problem.  Ordinarily,  these  weights  are  set  up  so 
that  they  gradually  decrease  as  a  particle  proceeds  from 
•the  source  toward  a  region  in  which  the  flux  is  desired. 
Weights  should  gradually  increase  in  regions  which  are  lo¬ 
cated  progressively  further  from  the  "important"  regions. 

On  the  input  forms  the  user  must  specify  all  values  of  WR 
to  be  used  in  the  problem.  The  order  in  which  these  values 
are  entered  determines  their  region  weight  number  (i.e., 
the  first  value  of  WR  is  assigned  weight  #1,  the  second 
value  is  weight  #2,  etc.).  Then  for  each  region,  the  weight 
number  to  be  used  in  that  region  must  be  specified. 

C.  Angular  Weights 

By  using  angular  weighting,  it  is  possible  to  specify 
preferred  directions  for  a  particle,  independent  of  the 
region  location  of  the  particle.  The  user  first  specifies 
the  direction  cosines  (with  respect  to  the  coordinate  axes 
of  the  problem)  of  one  or  more  aiming  angles.  These  vectors 
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serve  as  "zero  directions"  about  which  angular  weights  will 
be  given.  Each  aiming  angle  is  assigned  a  number.  Next, 
a  set  of  angular  bins  is  specified  between  0°  and  180°  ,  with 
the  bin  boundaries  given  in  terms  of  their  cosines.  Thus, 
if  one  desires  to  specify  four  bins  of  equal  angle,  the 
cosines  of  0°,  45°,  90°,  135°,  and  180°  should  be  entered. 
Then,  one  or  more  sets  of  angular  weight  values  are  given. 
For  each  set,  a  weight  value  (WA)  is  specified  for  each 
angular  bin.  Each  set  is  also  assigned  a  number.  Finally, 
for  each  region,  the  aiming  angle  number  and  the  angular 
weight  set  number  must  be  given.  To  illustrate  how  the  code 
uses  this  information,  assume  that  a  given  region  has  been 
assigned  aiming  angle  #1  and  angular  weight  set  #2.  A  par¬ 
ticle  enters  the  region  and  the  code  determines  that  the 
particle  is  traveling  at  an  angle  9  with  respect  to  aiming 
angle  #1.  The  code  then  determines  which  angular  bin  en¬ 
compasses  9,  goes  to  angular  weight  set  #2,  and  finds  the 
value  of  W^.  in  that  bin. 

In  general,  as  the  particle  direction  (angular  bin) 
becomes  more  important,  the  value  of  W_a  assigned  to  that 
bin  should  decrease. 

D.  Energy  Weighting 

The  use  of  energy  weighting  enables  the  user  to  in¬ 
struct  the  code  as  to  which  particle  energies  are  most  im¬ 
portant  in  a  given  problem.  A  set  of  energy  bins  is  first 
given,  where  the  bin  boundaries  are  listed  in  decreasing 
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order.  Then,  one  or  more  energy  weight  sets  are  specified, 


with  each  set  being  assigned  a  number.  For  each  set  an 
energy  weight  value  WE  must  be  given  for  each  energy  bin. 

The  energy  weight  set  number  corresponding  to  each  region 
is  then  given.  Assume,  for  example,  that  a  particle  of 

energy  E  is  in  a  region  which  has  been  assigned  weight  set 

I 

#1.  The  code  first  locates  the  energy  bin  which  emcompasses 
E,  refers  to  weight  set  #1,  and  determines  the  value  of  WE 
which  was  given  for  that  bin.  In  establishing  the  energy 
weights,  the  more  important  energies  should  generally  have 
•mailer  WE  values  than  the  less  important  energies. 

E.  Application  of  Weights  to  Tracking 

As  noted  earlier,  the  total  particle  weight  is  the 
product  of  Wr  x  Wfj_  x  Wg.  The  particle  weight  is  used  to 
determine  the  number  of  collisions  that  a  particle  will 
produce  given  that  it  has  a  specified  energy  and  direction 
in  a  given  physical  region.  By  an  appropriate  choice  of 
aiming  angle  and  angular  weights,  particles  heading  down¬ 
ward  can  be  caused  to  have  more  collisions  than  particles 
heading  upward  in  the  same  region.  Thus  more  computing  time 
will  be  spent  on  the  "important"  downward  directed  particles 
and  their  descendents  than  on  the  "less  important"  upward 
directed  particles. 
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F. 


Treatment  of  "Latent"  Particles 


If  a  collision  does  occur  the  program  calculates  the 
energy  and  direction  of  the  particle  emerging  from  the 
collision.  The  collided  particle  is  stored  in  a  latent 
storage  table  and  will  be  picked  up  and  followed  as  though 
it  were  a  source  particle  at  a  later  time.  When  it  is 
started  out  as  a  real  particle,  it  is  assigned  an  F  value 
equal  to  the  ratio  of  the  weight  of  the  particle  which  went 
into  collision  to  the  weight  of  the  particle  emerging  from 
collision.  In  general,  these  will  be  different  due  to 
differences  in  energy  and  direction  of  travel. 

The  program  stores  the  information  concerning  latents 
in  a  table  which  can  hold  up  to  100  latents.  Prior  to 
storage  a  test  is  made  to  see  if  the  F  of  the  latent  exceeds 
the  input  value  of  Fz.  If  so,  it  is  stored.  If  not,  a 
Russian  roulette  calculation  is  performed,  as  previously 
discussed,  and  the  latent  is  either  eliminated  or  has  its 
F  set  equal  to  1.0. 

If  more  than  100  latents  are  generated  by  a  source 
particle,  the  program  has  a  "squeeze"  routine  which  reduces 
the  number  of  latents  in  a  statistically  valid  way. 

Although  the  use  of  importance  sampling  may  appear  to 
be  a  rather  complicated  procedure,  the  user  will  generally 
find  that  after  gaining  a  little  experience  with  the  code 
the  process  becomes  relatively  straightforward  and  easily 
applied.  Certainly,  the  time  spent  in  learning  how  to 
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properly  apply  this  technique  will  be  well  worth  it  in  the 
long  run,  since  it  enables  complex,  deep-penetration  prob¬ 
lems  to  be  run  in  a  reasonable  amount  of  machine  time. 
Appendix  A  contains  a  discussion  of  the  theory  of  importance 
sampling  with  an  example  of  how  a  set  of  weights  is  estab¬ 
lished  . 

4.2.4 _ Flux-at-a-Point 

In  certain  problems  it  may  be  desired  to  calculate  the 
flux  at  a  particular  point  in  the  geometry.  Since,  during 
the  ordinary  tracking  process,  no  particle  can  be  expected 
to  pass  through  a  given  point,  SAM-C  incorporates  an  inde¬ 
pendent  method  of  estimating  the  flux  at  one  or  more  speci¬ 
fied  points. 

The  program  actually  uses  two  independent  computational 
methods:  f lux-at-a-point  (FAP)  and  a  statistical  estima¬ 

tion  method  (SEM) .  FAP  is  applicable  to  detector  points  in 
a  scattering  medium  but  not  in  the  immediate  vicinity  of 
the  source  region.  SEM  is  applied  to  detectors  outside  the 
immediate  vicinity  of  either  the  source  region  or  a  scatter¬ 
ing  material.  The  user  must  specify  the  total  number  of 
detector  points  to  be  evaluated  and  the  number  of  points 
where  the  FAP  method  is  to  be  used.  The  X,  Y,  Z  coordinates 
of  each  point  are  then  listed  with  the  FAP  detectors  listed 
first,  followed  by  the  SEM  detectors. 
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The  choice  of  method  to  be  employed  is  left  to  the 
user,  but,  in  general,  SEM  is  more  rapid  if  the  detector 
is  located  in  a  vacuum  (or  very  low-density  material)  and 
not  close  to  the  source.  FAP  is  preferred  for  detectors 
within  a  scattering  material  but  not  near  the  source. 

Neither  method  is  recommended  for  a  point  near  the  source 
region,  and  in  this  case,  the  point  should  be  approximated 
by  a  relatively  small  three-dimensional  region. 

4.2.5  Source  Specification 

The  specification  of  the  initial  particle  source  pro¬ 
vides  the  user  with  several  options.  These  options  are 
described  briefly  below. 

A.  Spatial  Distribution 

Sources  may  be  generated  in  any  number  of  regions.  For 
each  source  region  the  "power  density"  (particles/volume) 
must  be  given.  The  user  has  the  option  of  normalizing  the 
problem  to  a  unit  source  or  to  the  total  input  power  density. 
If  the  number  of  source  regions  is  zero,  the  program  will 
use  an  external  source  tape  (one  which  has  been  generated 
from  a  previous  problem) . 

B.  Angular  Distribution 

Sources  may  be  either  isotropic  or  monodirectional  but 
the  same  angular  distribution  must  be  used  in  all  source 
regions.  (It  should  be  noted,  however,  that  a  source  may 
be  generated  in  a  finite  cone  by  specifying  an  isotropic 
distribution  and  using  angular  weights  to  kill  particles 
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which  are  generated  outside  the  desired  cone.) 

C.  Energy  Distribution 

The  code  has  built  into  it  the  Cranberg  fission  neutron 

spectrum.  If  this  option  is  selected,  no  energy  spectrum 

input  is  required.  If  an  arbitrary  spectrum  is  desired,  the 

input  must  contain  the  desired  energy  mesh  and  the  integrated 

source  above  each  energy  point  (i.e.,  a  table  of  E  vs  j 

E 

S (E)  dE  is  required). 

D.  Time  Distribution 

If  a  time-dependent  problem  is  to  be  run,  the  user  must 

supply  a  table  of  time  values  and  the  integrated  source  up 

to  each  time  (i.e.,  t  vs  J  S (t)  dt) .  This  input  should 

y0 

be  deleted  from  time-independent  problems. 

4.2.6 _ Time  Dependence 

SAM-C  enables  the  user  to  compute  particle  fluxes  as 
a  function  of  time  as  well  as  energy  and  position.  The  user 
selects  any  desired  time  bin  structure  for  the  problem  and 
enters  the  bin  limits  in  consecutive  order  on  the  input 
forms,  starting  with  the  highest  bin.  Output  fluxes  will 
be  given  in  this  bin  structure  in  the  edit.  A  time-cutoff 
must  also  be  specified,  which  instructs  the  code  to  cease 
tracking  all  particles  which  have  "aged"  beyond  this  cutoff. 
During  the  tracking  process  the  code  computes  the  flight 
time  of  a  particle  between  collision  points  from  its  ve¬ 
locity  (or  energy) .  Interactions  are  assumed  to  occur 
instantaneously.  By  accumulating  the  flight  times  for  each 


164 


particle,  the  code  is  capable  of  storing  particle  fluxes  in 
the  proper  output  time  bin. 

4.2.7 _ Output  Energy  Mesh 

During  tracking,  the  code  stores  fluxes  in  each  region 
in  a  set  of  energy  output  bins  specified  by  the  user.  The 
number  and  width  of  these  bins  are  arbitrary,  but  they  may 
not  extend  beyond  the  energy  range  for  which  cross-section 
data  are  available.  The  bin  limits  must  be  given  consecu¬ 
tively  in  the  input,  starting  with  the  highest  energy.  The 
upper  and  lower  bin  limits  must  be  preceded  by  minus  signs. 
The  reason  for  this  will  be  explained  shortly.  Care  should 
be  taken  to  insure  that  the  upper  energy  bin  limit  is  equal 
to  or  greater  than  the  highest  source  energy  to  be  generated 
in  the  problem.  A  cutoff  energy  is  also  specified,  which 
instructs  the  code  to  cease  tracking  any  particle  which  de¬ 
grades  below  this  energy.  The  user  should  be  certain  that 
the  lowest  energy  bin  limit  is  equal  to  or  lower  than  the 
cutoff  energy.  In  essence,  there  must  be  a  bin  available 
to  store  every  possible  energy  in  the  problem. 

Some  calculations  may  require  more  computer  storage 
than  is  available.  This  situation  can  be  alleviated  by 
using  the  "supergroup"  option  provided  by  the  code.  This 
option  divides  the  overall  energy  range  into  smaller  groups 
(called  supergroups)  and  the  code  then  treats  each  of  these 
groups  separately.  In  this  manner,  only  the  cross-section 
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data  for  that  group  currently  being  treated  are  stored  in 
the  memory  and  only  those  particles  having  energies  in  that 
group  are  tracked.  When  a  particle  degrades  to  a  lower 
supergroup,  its  parameters  are  stored  and  its  tracking  is 
resumed  only  after  all  higher  groups  have  been  completed. 

The  supergroup  structure  is  defined  by  the  user  by  placing 
a  minus  sign  before  those  output  energies  he  wishes  to 
designate  as  supergroup  limits.  If  this  option  is  not 
desired,  only  the  upper  and  lower  energy  bin  limits  require 
minus  signs.  This  instructs  the  code  to  treat  all  energies 
as  part  of  a  single  supergroup. 

4.2.8 _ Response  Functions 

SAM-C  provides  response  function  options  which  allow 
the  user  to  automatically  transform  particle  fluxes  into  any 
desired  flux-dependent  quantity  (dose,  heat  deposition,  etc.). 
Assume,  for  example,  that  the  dose  is  required  in  several 
regions.  The  user  supplies,  as  input,  a  flux-to-dose  con¬ 
version  factor  as  a  function  of  energy  and  the  numbers  of 
the  regions  where  the  dose  is  desired.  For  each  region,  the 
code  multiplies  the  flux  0(E)  in  each  energy  bin  by  the 
corresponding  conversion  factor  C(E)  and  integrates  over 
energy.  Thus 


Two  calculation  options  are  provided  as  described  on 
the  following  page. 
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1. 


Built-In  Response 

This  option  allows  for  a  single  response  calcula¬ 
tion  for  all  flux  regions.  The  calculation  is 
performed  before  the  flux  edit. 

2 .  Multiple  Response 

This  option  allows  for  the  calculation  of  several 
responses  through  the  use  of  the  aggregate  tape. 
At  the  completion  of  the  Monte-Carlo  problem  the 
flux  results  will  be  stored,  by  aggregate,  on  the 
aggregate  tape.  This  tape  may  be  processed  at  a 
later  time  for  as  many  responses  as  desired. 

4.2,9 _  Transmission  and  Escape  Regions 

A  transmission  region  has  the  property  such  that  when 
a  particle  enters  it,  the  tracking  of  that  particle  is 
terminated  and  all  of  its  parameters  (X,  Y,  Z  coordinates, 
energy,  etc.)  are  stored  on  a  magnetic  tape  called  the 
interaction  tape.  This  tape  then  can  be  used  to  generate 
a  source  tape  composed  of  particles  entering  the  trans¬ 
mission  region.  In  general,  a  transmission  region  is  used 
when  it  is  desired  to  run  a  problem  in  two  steps.  This  is 
usually  done  for  very  deep  penetrations  or  for  unusual 
geometric  configurations  (such  as  ducts)  where  it  may  be 
more  economical  to  run  the  problem  in  stages.  The  designa¬ 
tion  of  a  transmission  region  is,  however,  optional.  Note 
that  the  program  is  capable  of  treating  up  to  10  different  • 
transmission  regions. 


An  escape  region  is  one  in  which  all  particles  that 
enter  are  killed.  It  is  ordinarily  used  to  define  the  outer 
limits  of  the  geometry  (i.e.,  the  complete  geometry  is  en¬ 
closed  in  a  large  region  which  is  designated  as  the  escape 
region)  . 

4.2.10  Scoring  Regions 

A  scoring  region  is  one  in  which  the  flux  contribution 
is  computed  for  each  particle  which  passes  through  it.  In 
a  nonscoring  region  no  such  computation  is  made,  so  that 
the  output  edit  provides  fluxes  only  in  those  regions 
designated  in  the  input  as  scoring  regions. 

In  most  problems  it  is  desired  to  know  the  flux  in 
every  region  separately,  in  which  case  each  region  in  the 
problem  would  be  defined  as  a  scoring  region  with  a  differ¬ 
ent  number.  In  some  problems,  however,  two  or  more  re¬ 
gions  may  be  completely  symmetric  with  respect  to  the  source, 
in  which  case  the  fluxes  in  these  symmetric  regions  could 
be  combined  without  any  loss  of  information,  and,  in  fact, 
an  improvement  in  the  accuracy  will  be  obtained.  Each  of 
these  regions  then  would  be  designated  by  the  same  scoring 
region  number.  In  still  other  problems  it  may  be  unnecessary 
to  know  the  fluxes  in  certain  regions.  These  should  then 
be  given  scoring  region  number  zero,  which  tabs  them  as 
nonscoring . 
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Since  fluxes  are  only  stored  and  printed  out  for  scor¬ 
ing  regions,  it  is  possible  to  reduce  both  the  size  of  the 
edit  and  the  core  storage  requirements  by  reducing  the  num¬ 
ber  of  different  scoring  regions.  It  should  be  remembered, 
however,  that  once  a  problem  is  run  it  is  impossible  to 
recapture  any  flux  information  in  nonscoring  regions. 

4.2,11  Number  of  Histories  and  Statistical  Groups 

The  user  must  designate  the  total  number  of  source 
particles  (histories)  to  be  run  in  the  problem.  Although 
a  greater  number  of  histories  will  improve  the  accuracy  of 
the  answers,  it  will  also  increase  the  problem  running  time. 
The  user  must  therefore  strike  a  balance  between  the  toler¬ 
able  errors  in  the  answers  and  the  cost  of  running  the 
problem.  In  complicated  problems  it  is  usually  wise  to  run 
a  test  problem  of  100  to  200  histories  to  get  a  "feel"  for 
whether  particles  are  reaching  the  desired  regions.  If 
they  are  not,  the  fault  probably  lies  in  incorrect  importance 
sampling  and  the  weights  should  be  adjusted.  If  the  test 
problem  appears  to  have  run"well,"  then  the  number  of  his¬ 
tories  can  be  increased  by  perhaps  a  factor  of  about  10. 

After  some  experience,  the  user  can  generally  determine  the 
correct  number  of  histories  to  run  in  a  particular  problem. 

In  running  the  problem  the  total  number  of  histories 
is  divided  into  aggregates  called  statistical  groups.  This 
is  done  in  order  to  compute  the  variance  (or  standard  devia¬ 
tion)  of  the  fluxes.  All  particles  (and  their  latents) 
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within  a  group  are  tracked  before  another  group  is  treated. 
Fluxes  are  computed  and  stored  on  tape  separately  for  each 
group.  The  size  of  the  statistical  group  is  constant  in  a 
given  problem  and  must  be  specified  in  the  input.  The  group 
size  is  not  critical  but  should  be  small  compared  to  the 
total  number  of  histories  to  be  run.  About  20  histories  per 
statistical  group  has  generally  been  found  to  be  adequate. 
4.2.12  Volume  Computation 

To  evaluate  the  flux,  the  track  length  in  a  region  is 
divided  by  the  volume  of  the  region.  Provision  has  been 
made  to  input  volumes  of  regions  if  they  are  known.  It  often 
happens  however  that  regions  described  by  the  combinatorial 
geometry  technique  have  such  complex  shapes  that  an  analytic 
volume  computation  is  not  practical.  To  determine  the  vol¬ 
ume  of  such  regions,  a  routine  is  included  to  perform  a 
ray-tracing  numerical  integration  calculation  of  the  volume. 

A  grid  plane  is  set  up  such  that  rays  normal  to  the 
plane  penetrate  the  geometry  in  question.  Rays  are  passed 
through  the  plane  with  a  fixed  spacing  AX  and  AY.  The  track 
length  through  any  region  is  calculated  and  set  equal  to 
Zn  where  n  is  the  ray  number.  The  volume,  then,  of  a  region 
is  AX  AY  En  Zn.  The  accuracy  of  the  volume  computation  is 
dependent  on  the  AX  and  AY  spacings.  For  vehicles  such  as 
the  M-60,  accuracies  of  a  few  percent  have  been  obtained 
with  spacings  of  approximately  one  inch. 
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4.2.13 


Secondary  Production  (GASP) 


A.  Interaction  Scoring 

SAM-C  provides  the  user  with  a  method  of  calculating 
the  production  and  transport  of  secondary  particles  coming 
out  of  primary  source  particle  interactions  (e.g.,Y-rays 
from  neutron  capture  or  inelastic  scattering  and  secondary 
neutrons  from  fission  or  (n,2n)  reactions).  During  the 
tracking  of  primary  source  neutrons,  all  interactions  which 
are  capable  of  producing  secondaries  are  stored  on  the 
interaction  tape  (of  Section  4.2.14).  The  stored  data  are 
the  coordinates  of  the  collision  point,  the  energy  and 
weight  of  the  primary  neutron,  and  the  type  of  interaction. 
This  tape  then  can  be  processed  via  the  GASP  program,  which 
generates  a  source  tape  for  use  in  a  subsequent  SAM-C  prob¬ 
lem.  It  should  be  noted,  however,  that  GASP  is  run  as  a 
separate  problem  and  the  input  to  it  should  not  be  included 
with  the  SAM-C  input  package.  The  following  discussion 
describes  the  basic  input  required  to  run  GASP. 

B.  GASP  (Gamma  Secondary  Production) 

The  first  group  of  input  specifies  the  number  of  ele¬ 
ments  in  the  configuration,  number  of  regions  in  the  prob¬ 
lem,  maximum  number  of  primary  neutron  histories  to  be 
processed  (this  may  exceed  the  number  of  source  particles 
run  in  the  SAM-C  problem,  in  which  case  GASP  will  process 
all  primary  histories) ,  maximum  number  of  secondary  parti¬ 
cles  to  be  created,  and  the  number  of  energy  bins  for  an 
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interaction  tape  edit.  If  the  latter  quantity  is  non-zero,  the 

user  must  supply  a  list  of  primary  neutron  energy  bins  and 

the  code  will  provide  the  number  of  absorptions  and  inelas¬ 
tic  scatterings  in  each  bin  for  each  region.  If  the  user 
wishes  to  edit  the  interaction  tape  but  does  not  wish  to 
generate  a  secondary  source  tape,  a  zero  should  be  entered 
for  the  number  of  secondary  particles  to  be  created. 

Assuming  that  a  source  tape  is  desired,  the  following  , 
input  is  required  for  each  element  in  the  configuration. 

1.  Atomic  weight.. 

2.  Number  of  different  capture  gamma  energies 

produced  per  neutron  capture. 

3.  Number  of  corresponding  primary  neutron 
energies.  This  quantity  permits  the  user 
to  change  the  capture  gamma  spectrum  as 

a  function  of  neutron  energy. 

4.  Number  of  different  inelastic  scattering 
gamma-ray  energies. 

5.  Number  of  corresponding  primary  neutron 
energies.  This  can  be  used  to  change  the 
inelastic  gamma  spectrum  as  a  function  of 
neutron  energy. 

6.  Capture  gamma  energy  values. 

7.  Corresponding  neutron  energy  values. 


172 


8. 


Number  of  gammas  produced  at  each  gamma 
energy  for  each  neutron  energy  bin  (i.e., 
starting  with  neutron  bin  #1,  enter  the 
number  of  gammas  produced  at  each  energy 
in  the  gamma  spectrum,  then  repeat  for 
neutron  bin  #2,  etc.). 

9.  Items  6,  7,  and  8  are  then  repeated  for 
inelastic  gammas. 

After  items  1  through  9  have  been  entered  for  each 
element,  the  user  must  specify  the  region  and  energy 
weights  for  secondary  particles.  The  format  is  given  in 
Section  4.2.14.  Note  that  no  angular  weights  are  permitted 
in  GASP.  In  setting  up  the  secondary  particle  weights  for 
GASP  it  also  should  be  noted  that  the  number  of  secondaries 
produced  will  be  modified  by  the  ratio  of  primary  neutron 
weight  to  secondary  gamma  weight.  Assume,  for  example, 
that  the  user  has  specified  that  one  gamma  ray  is  produced 
in  a  particular  capture  reaction.  If  the  weight  of  the 
captured  neutron  was  1.0  and  the  secondary  gamma  weight  is 
given  as  0.5,  the  code  will  actually  generate  two  gamma 
rays.  This  should  be  of  no  concern  since  the  normalization 
to  the  proper  energy  spectrum  is  done  correctly  by  the  code. 
This  method  of  generating  secondaries  can  be  used  to  ad¬ 
vantage  since  it  allows  the  user  to  suppress  secondary 
production  in  certain  regions  (by  making  the  region  weight 
in  GASP  very  large) ,  while  enhancing  it  in  other  regions. 
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The  final  group  of  input  is  used  if  an  edit  of  the 
source  tape  is  desired.  The  energy  bin  structure  of  secon¬ 
dary  particles  is  specified  and  the  edit  provides  the  numbef 
of  secondaries  generated  in  each  energy  bin  in  each  region. 

The  input  requirements  for  the  secondary  SAM-C  problem 
are  similar  to  those  for  the  primary  problem.  The  statis¬ 
tical  group  size  for  the  secondary  problem  should  be  the 
same  as,  or  a  multiple  of,  that  of  the  primary  problem. 
4.2.14 _ Card  Input  Formats 

Definitions  of  all  input  quantities  are  discussed  below 
in  their  correct  order. 

A.  TUNC  Input 

TUNC  is  the  main  program  of  the  SAM-C  system  and  the 
input  consists  of  two  cards. 

Card  1 

Any  80  Hollerith  characters  (usually  serves  as  a 
title  card) . 

Card  2 

I BAND,  NBAND  (Format  2110) 

IBAND  =0  An  organized  data  tape  (ODT)  will 
be  generated  and  edited  (BEDIT) 
and  the  geometry  input  will  be 
added  to  the  ODT. 

IBAND  =1  An  existing  ODT  will  be  edited 
and  the  geometry  input  will  be 
added  to  the  ODT. 

IBAND  =2  An  organized  data  tape  (ODT)  will 
be  generated  and  the  geometry 
input  will  be  added  to  the  ODT. 
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I  BAND 


=  3 

I BAND  =  4 

NBAND 


The  geometry  input  will  be. added  to 
an  existing  ODT. 

An  existing  ODT  also  containing  the 
geometry  input  will  be  used. 

The  number  of  energy  bands  in  which 
the  cross  sections  are  to  be  proc¬ 
essed.  During  tracking,  the  cross 
sections  in  only  one  band  are  in  the 
computer  at  any  one  time.  An  attempt 
should  be  made  to  keep  the  total 
number  of  cross  sections  roughly 
constant  in  each  band. 


B .  BAND  Input 

The  BAND  routine  organizes  the  cross  sections  and 
generates  an  ODT. 

Card  1  -  Identification  Card  (Formats  IIP,  2E15.5,  315) 


Problem  Number  -  any  integer 

Upper  and  lower  energies  -  may  be  left  blank. 

Number  of  compositions  -  enter  the  total  number 
of  distinct  compositions. 

NG  -  enter  0  for  a  neutron  problem  or  1  for  a 
gamma-ray  problem. 

NBAND  -  enter  the  same  number  as  in  the  TUNC  input. 

Card  2  -  Cross  Section  Band  Limits  (Format  5E14.5) 

Enter  the  energy  limits  (in  ev)  of  each  band  starting 

with  the  highest  energy  and  proceeding  to  the  lowest  energy 

in  the  problem.  Use  as  many  cards  as  necessary. 

Card  3  -  Composition  Identification  (Format  2110) 

Composition  number  -  an  integer  starting  with  1  for 
the  first  composition. 

Number  of  elements  -  enter  the  number  of  discrete 
elements  or  isotopes  (i.e.,  U2 3 5  and  U2 3 8  would 
count  as  two  elements)  in  the  composition. 
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Card  4  -  Element  Cards  (one  card  per  element)  (Formats  15, 
E15.5) 

ID  -  an  integer  which  identifies  each  element. 

Make  sure  that  this  integer  agrees  with  the 
identification  number  of  the  element  on  the 
element  data  tape.  The  identification  numbers 
on  this  tape  are  usually,  but  not  necessarily, 
equal  to  the  integral  atomic  weights  of  the 
elements . 


Concentration  -  enter  the  atomic  concentration 
( 1 0 2 4  atoms/cm^)  of  each  element  in  the 
composition . 


Cards  3  and  4  are  repeated  for  each  composition. 

C.  GENI  (Geometry)  Input 

The  format  for  the  geometry  input  is  discussed  in 
Sections  2  and  3.2  of  this  report. 


D .  INPUTD  Input 


The  INPUTD  routine  reads  and  stores  the  remaining 


input  for  a  problem. 


Card  1  -  General  Information  (Formats  3110,  815) 

NSTART  The  number  of  real  time  seconds  of 

running  time  before  terminating  and 
editing . 

NSTOP  Number  of  the  last  history  to  be 

treated . 


NSTAT 

NRMAX 

NG 

NT 

NOUT 


Number  of  histories  per  statistical  ^ 
group. 

Number  of  regions  in  the  geometry. 

Enter  0  for  a  neutron  problem  or  1  'Q 
for  a  gamma  problem. 


Number  of  output  time  bins  (enter 
for  a  time-independent  problem) . 

Number  of  output  energy  bins. 


0 


NUMSC  Number  of  flux  scoring  regions.  \ 

NRWL  Number  of  distinct  region  weights.  \ 

IREX  The  escape  region  number. 

IRT(l)  The  first  transmission  region  number 

(leave  blank  if  no  transmission  regions 
are  desired) . 

Note  that  the  above  11  items  appear  on  a  single  card, 
the  first  three  are  Format  110  and  the  last  eight  are 
Format  15. 


Card  1 . 1  -  Transmission-Interaction  Information  (Format  1415) 


IRT (2) 
IRT (3) 
IRT (4) 
IRT (5) 
IRT  (6) 
IRT (7) 
IRT (8) 
IRT (9) 
IRT (10) 

IWA 


IWI 


IWE 

TWt) 

IWO 


Additional  transmission  region 
numbers.  Leave  blank  if  only  one 
or  if  no  transmission  region. 


Enter  a  "1"  if  absorptions  are  to  be 
recorded  on  tape,  otherwise  leave  blank. 

Enter  a  "1"  if  inelastics  are  to  be 
recorded  on  tape,  otherwise  leave  blank. 

Enter  a  "1"  if  elastics  are  to  be 
recorded  on  tape,  otherwise  leave  blank. 

A  multiplicity  factor.  Each  transmission 
will  be  recorded  on  tape  "IWO"  times.  If 
IWO  is  zero,  no  transmissions  will  be 
recorded . 


Card  2  -  Number  of  Point  Detectors  (Format  2110) 


NDET  Total  number  of  point  detectors. 

NDFAP  Number  of  detectors  for  which  flux-at-a- 

point  is  to  be  used.  Statistical  estima¬ 
tion  will  be  used  for  the  remaining 
detectors . 


177 


Card  3  -  Point  Detector  Coordinates  (Format  3E14.6) 

XAD,  YAD,  The  X,  Y,  Z  coordinates  of  each 
ZAD  detector  point.  One  card  per 

detector.  Enter  the  f lux-at-a-point 
detectors  first,  followed  by  the 
statistical  estimation  detectors. 

Card  4  -  Cutoff  Information  (Format  5E14 .5) 


ECUT 

Low  energy  cutoff  (ev) .  Tracking 
of  a  particle  is  terminated  if  its 
energy  degrades  below  ECUT. 

ETH 

Thermal  energy  if  a  thermal  group 
is  required.  ETH  must  be  within 
the  energy  limits  of  the  problem. 

TCUT 

Leave  blank. 

FZ 

See  discussion  in  Section  4.1. 

EHIGH 

High  energy  cutoff  (ev) .  This  should 
be  less  than  or  equal  to  the  highest 
energy  for  which  cross  sections  are 
available . 

Card  Set  5  -  Output  Energy  Bins  (Format  5E14.5) 

These  cards  give  the  boundaries  of  the  output  energy 
bins  (ev)  used  for  the  flux  edit.  There  should  be  five 
entries  per  card  with  a  total  of  (NOUT  +  1)  entries.  The 
energies  should  be  listed  from  high  to  low  with  the  lowest 
energy  equal  to  or  less  than  ECUT.  The  first  and  last 
entries  should  be  negative.  If  supergroups  are  used,  any 
number  of  intermediate  energies  may  also  be  negative. 

Card  Set  6  -  Output  Time  Bins  (Format  5E14.5) 

These  cards  give  the  boundaries  of  the  output  time 
bins.  There  should  be  five  entries  per  card  with  a  total 
of  (NT  +  1)  entries.  However,  if  NT  =  0,  omit  Card  Set  6 


entirely.  Times  should  be  entered  from  high  to  low  with  the 
first  entry  equal  to  or  greater  than  TCUT  and  the  last  entry 
must  equal  0 . 

Card  Set  7  -  Region  Weights  (Format  5E14.5) 

These  cards  give  all  of  the  region  weights  needed  in 
the  problem.  They  are  entered  five  to  a  card  with  a  total 
of  NRWL  entries.  The  order  in  which  the  weights  are  entered 
is  irrelevant,  but  does  determine  the  region  weight  numbers 
(i.e.,  entry  one  is  weight  #1,  etc.). 

Card  8  -  Region  Specifications  (Format  615) 

Use  one  card  per  region  with  a  total  of  NRMAX  cards. 

The  first  card  applies  to  region  1,  the  second  to  region  2, 
etc . 

ISC  Scoring  region  number  in  which  the 

fluxes  in  this  geometric  region  are 
to  be  stored.  Several  regions  may 
be  assigned  the  same  ISC  number.  If 
ISC  =  0,  fluxes  will  not  be  stored. 

NREG  Number  of  the  composition  to  be  found 

in  this  region.  These  numbers  are 
defined  by  the  BAND  input. 

IRW  Region  weight  number  assigned  to  this 

region.  A  weight  number  is  given  by 
its  position  in  the  list  of  region  weights. 

IEW  Energy  weight  set  number  assigned  to 

this  region.  If  IEW  =  0  there  is  no 
energy  weighting  in  this  region. 

IAN  Aiming  angle  number  assigned  to  this 

region.  If  IAN  =  0  there  is  no 
angular  weighting  in  this  region. 

IANG  Angular  weight  set  number  assigned  to 

this  region. 
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Card  9  -  Energy  Weight  Specification  (Format  2110) 


NEWL 

Number  of  energy  bins  for  energy 
weighting . 

NEW 

Number  of  distinct  energy  weight 
sets.  If  NEWL  and  NEW  =  0,  the 
problem  contains  no  energy 

m 

weighting  and  Cards  10  and  11 
are  omitted. 

Card  Set  10  -  Bin  Limits  for  Energy  Weights  (Format  5E14.5) 
Enter  the  boundaries  (ev)  of  the  energy  bins  to  be 
used  for  energy  weighting.  There  should  be  five  entries 
per  card  with  a  total  of  (NEWL  +  1)  entries.  The  energies 
should  be  entered  in  decreasing  order.  The  lowest  bin 
limit  should  be  less  than  or  equal  to  ECUT. 

Card  Set  11  -  Energy  Weight  Sets  (Format  5E14.5) 

The  energy  weight  value  in  each  of  the  above  energy 
bins  should  be  entered.  One  or  more  sets  of  energy  weights 
may  be  entered.  Each  set  should  contain  NEWL  entries  and 
a  new  card  should  be  used  to  start  each  set.  There  should 
be  a  total  of  NEW  sets.  The  order  in  which  the  sets  are 
entered  determines  the  energy  weight  set  numbers  (the  first 
set  is  weight  set  #1,  etc.). 

Card  12  -  Angular  Weight  Specifications  (Format  3110) 

NAIML  Number  of  distinct  aiming  angles. 

NUMANL  Number  of  angular  bins  for  angular 

weighting . 

NUMANG  Number  of  distinct  angular  weight  sets. 

If  the  problem  contains  no  angular  weighting,  enter  0 
for  the  above  three  quantities  and  omit  Cards  13,  14,  and  15. 
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Card  Set  13  -  Aiming  Angles  (Format  3E14.5) 


Enter  the  direction  cosines  of  each  aiming  angle  with 
respect  to  the  X,  Y,  Z  coordinates.  Use  a  total  of  NAIML 
cards . 

Card  14  -  Bin  Limits  for  Angular  Weights  (Format  5E14.5) 
Enter  the  boundaries  of  the  angular  bins  to  be  used 
for  angular  weighting.  Boundaries  are  given  in  terms  of 
the  cosines  of  the  angles,  with  the  first  entry  equal  to 
1.0  and  the  last  entry  equal  to  -1.0.  There  would  be  a 
total  of  (NUMANL  +  1)  entries. 

Card  Set  15  -  Angular  Weight  Sets  (Format  5E14.5) 

The  angular  weight  value  in  each  of  the  above  angular 

bins  should  be  entered.  One  or  more  sets  of  angular  weights 

should  be  entered.  Each  set  should  contain  NUMANL  entries 

and  a  new  card  should  be  used  to  start  each  set.  These 

should  be  a  total  of  NUMANG  sets.  The  order  in  which  the 

sets  are  entered  determines  the  angular  weight  set  numbers. 

Card  16  -  Source  Specifications  (Format  3110) 

Number  of  different  source  regions  in 
the  problem.  If  NSR  =  0 ,  an  external 
source  tape  is  used  and  no  further 
source  input  is  required. 

Number  of  energies  used  to  define  the 
source  spectrum.  If  IFLAG  =  0,  a 
built-in  Cranberg  fission  spectrum  will 
be  used  for  a  neutron  problem. 

If  ISW  =  0,  fluxes  will  normalize  to 
one  source  particle.  If  ISW  =  1,  fluxes 
will  be  normalized  to  the  total  source 
power  as  given  on  the  next  card. 


NSR 


IFLAG 


ISW 
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Card  17  -  Source  Regions  (Formats  IIP,  E20.10,  IIP) 


One  card  is  required  for  each  source  region  with  a 
total  of  NSR  such  cards. 

ISR  Geometrical  region  number. 

P  Power  density  in  the  region  (source 

particles  per  unit  volume) . 

ISO  If  ISO  =  0,  the  source  particles  will  be 

emitted  isotropically.  If  ISO  =  1, 
the  source  will  be  monodirectional , 
with  the  direction  specified  on 
Card  21.  The  value  of  ISO  (0  or  1) 
must  be  the  same  for  all  source 
regions . 

Card  18  -  Spectrum  Description  (Format  2E20.8) 

These  cards  give  the  integrated  source  spectrum.  Each 
card  contains  an  energy  (ev)  and  the  integrated  source 
above  that  energy.  The  first  card  contains  the  upper  energy 
^S(E)dE,  of  the  source  with  the  integral  equal  to  0.  The 
last  card  gives  the  lower  energy  of  the  source  with  the 
integral  equal  to  1.0.  The  lower  energy  of  the  source 
should  be  less  than  or  equal  to  ECUT,  but  greater  than  or 
equal  to  the  lowest  output  flux  energy  bin  limit. 

Card  19  -  Time  Specifications  (Format  IIP) 

NOT  Number  of  time  values  used  to  specify 

the  time  distribution.  Cards  19  and 
20  should  be  omitted  for  a  time-inde¬ 
pendent  problem. 

Card  Set  20  -  Time  Distribution  (Format  2E20 . 10) 


Each  of  these  cards  should  contain  a  time  value  and 


the  corresponding  integrated  source  up  to  that  time 


dt. 
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These  cards  are,  therefore,  analogous  to  Card  18,  except 
that  time  replaces  energy.  The  first  entry  should  corre¬ 
spond  to  the  longest  time  with  the  integral  equal  to  1.0. 

The  last  entry  is  for  time  equal  0  with  the  integral  equal 
to  0 . 

Card  21  -  Monodirectional  Source  (Format  3E14.5) 

If  ISO  =  1,  the  direction  cosines  of  the  monodirectional 
source  with  respect  to  the  X,  Y,  Z  coordinate  axes  should 
be  entered.  If  ISO  =  0,  omit  this  card.  Do  not  use  angular 
weighting  in  the  source  regions  if  a  monodirectional  source 
is  specified. 

Card  22  -  Volume  Parameters  (Format  2110) 

IR  The  region  number  of  the  vertex  point 

XV.  If  IR  =  0,  then  all  volumes  will 
be  read  in  and  no  computations  will  be 
made . 

IPUN  =0  Do  not  punch  out  computed  volumes. 

IPUN  7*  0  Punch  out  computed  volumes. 


Card 

23 

-  The  X, 

Y, 

Z 

Coordinates 

of 

the 

XV 

Point 

(Format 

Card 

24 

3E20.8) 

-  The  X, 

Y, 

Z 

Coordinates 

of 

the 

XT 

Point 

(Format 

Card 

25 

3E20.8) 

-  The  X, 

Y, 

Z 

Coordinates 

of 

the 

XO 

Point 

(Format 

Card 

26 

3E20 . 8) 

-  The  X, 

Y, 

Z 

Coordinates 

of 

the 

XA 

Point 

(Format 

3E20. 8) 


The  above  four  cards  describe  the  vertices  of  the  box 
within  which  the  volumes  will  be  computed. 


Card  27  -  POD,  DT ,  (Format  2E20.8) 

DOD  is  the  increment  on  the  line  (XV,  XO) .  DT  is  the 
increment  on  the  line  (XV,  XT) .  The  two  increments  define 
the  scanning  mesh  for  the  numerical  integration. 

Note  that  cards  23^  through  2J_  are  to  be  omitted  if 
IR  =  0. 

Card  28  -  Pre-Computed  Volumes  (Formats  IIP,  E20.8) 

IRl  is  the  region  number  of  the  pre-computed  volume. 

VR  is  the  pre-computed  volume. 

Repeat  Card  28  for  all  regions  having  pre-computed 
volumes . 

The  last  card  of  this  set  must  contain  an  IRl  greater 
than  the  number  of  regions. 

Card  29  -  Built-in  Response  Data  (Format  5E14.5) 

The  built-in  response  data  are  as  described  in  Section 
4.2.8.  Enter  the  C(E)  data  in  the  same  order  as  the  output 
energy  bins.  Enter  NOUT  —  1  numbers.  If  no  built-in  re¬ 
sponse  is  desired,  enter  the  corresponding  number  of  blank 
cards . 

E .  GASP  Input 

The  GASP  routine  is  used  to  edit  the  interaction  tape 
produced  in  a  primary  neutron  problem  and  to  generate  and 
edit  a  secondary  gamma-ray  or  neutron  source  tape. 
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Card  1  -  General 

Specifications  (Format  615) 

NELE 

Number  of  elements  present  in  the 
configuration . 

« 

IRMAX 

Number  of  geometric  regions  in  the 
configuration . 

a 

IHCUT 

Number  of  primary  histories  to  be 
processed. 

IGCUT 

Number  of  secondary  particles  to  be 
generated . 

NOUT 

Number  of  energy  bins  for  editing 
the  interaction  tape.  If  NOUT  =  0, 
the  edit  is  bypassed  and  Card  2 
should  be  omitted. 

IPRIN  =  0 

Print  GASP  element  data. 

IPRIN  =  1 

Print  only  element  parameter  card 
of  GASP  element  data. 

Card  2  -  Output  Energies  for  Interaction  Tape  Edit  (Format 
5E14.5) 

Enter  the  limits  of  the  output  energy  bins  in  which  the 
interaction  tape  is  to  be  edited.  The  edit  will  provide 
the  number  and  type  of  interactions  occurring  in  each  bin 
for  each  region.  There  should  be  a  total  of  (NOUT  +  1) 
entries  in  decreasing  order.  Cards  3  through  9  are  to  be 
omitted  if  IGCUT  =0.  In  this  case  no  secondary  source  tape 
will  be  generated.  If  IGCUT  is  greater  than  0,  repeat  Cards 
3  through  9  for  each  element  (i.e.,  these  seven  cards  are 
specified  in  order  for  the  first  element,  then  go  back  to 
Card  3  and  repeat  the  input  for  the  second  element,  etc.). 
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Card  3  -  Element  Parameter  Card  (Format  515) 


IATWT  Atomic  weight  (this  must  be  the 

same  number  used  to  identify  the 
element  in  the  BAND  input. 

LA  Number  of  discrete  capture  gamma 

energies.  Enter  zero  if  no  capture 
gammas  are  produced. 

KA  Number  of  corresponding  incident 

neutron  energies.  Enter  zero  for 
no  capture  gammas.  If  the  capture 
gamma  spectrum  is  independent  of 
neutron  energy,  enter  a  1. 

LI  Number  of  inelastic  gamma  ray 

energies.  Enter  a  zero  if  no 
inelastic  gammas  are  produced. 

KI  Number  of  corresponding  incident 

neutron  energies. 

Card  4  -  Capture  Gamma  Energies  (Format  6E12.4) 

Enter  the  energies  in  the  capture  gamma  spectrum  in 
increasing  order.  These  should  be  a  total  of  LA  entries. 
Omit  this  card  if  LA  =  0. 

Card  5  -  Captured  Neutron  Energies  (Format  6E12.6) 

Enter  the  upper  bound  of  each  neutron  energy  bin,  in 
ascending  order.  The  lower  bound  of  the  lowest  energy  bin 
is  not  entered  and  is  assumed  by  the  code  to  be  0.  There 
should  be  a  total  of  KA  entries.  Omit  this  card  if  KA  =  0. 
Card  Set  6  -  Capture  Gamma  Numbers  (Format  6E12.6) 

For  each  of  the  KA  neutron  energies ,  enter  the  number 
of  gammas  produced  at  each  of  the  LA  gamma  energies.  Start 
with  the  lowest  neutron  energy  bin  and  enter  each  gamma  num¬ 
ber  in  increasing  order  of  gamma  energy.  Start  a  new  card 
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for  each  neutron  energy  bin.  There  should  be  a  total  of 
KA  x  LA  entries.  Omit  this  card  if  either  Card  4  or  Card  5 
was  omitted. 

c a r d  7  -  I nel astic  Gamma  Energies  (Format  6E12.6) 

Identical  to  Card  4  except  that  the  entries  are  in¬ 
elastic  gamma  energies  instead  of  capture  gamma  energies. 
There  should  be  a  total  of  LI  entries.  Omit  if  LI  =  0. 

Card  8  -  Inelastically  Scattered  Neutron  Energies  (Format 
6E12.6) 

Enter  the  boundaries  of  the  inelastically  scattered 
neutron  energy  bins,  starting  with  the  lower  bound  of  the 
lowest  bin  and  proceed  in  ascending  order.  There  should  be 
a  total  of  KI  entries.  Omit  if  KI  =  0. 

Card  Set  9  -  Inelastic  Gamma  Numbers  (Format  6E12.6) 

Identical  to  Card  6  except  that  the  entries  are  the 
number  of  inelastic  gammas  produced  at  each  of  the  LI  gamma 
energies.  Start  a  new  card  for  each  neutron  energy  bin. 
Since  the  number  of  neutron  bins  equals  (KI-1) ,  the  total 
number  of  entries  must  equal  LI  x  (KI-1) . 

Repeat  Cards  3  through  9  for  each  element. 

Cards  10  through  15  -  Region  and  Energy  Weights 

These  cards  specify  the  weights  for  the  secondary  par¬ 
ticles.  The  input  format  is  identical  to  that  used  in  the 
INPUTD  input.  Note  that  angular  weighting  is  not  permitted 
so  that  IAN  and  IANG  are  left  blank  in  Card  12.  Omit  these 
six  cards  if  IGCUT  =  0. 
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The  following  two  cards  are  used  to  obtain  an  edit  of 
the  source  tape  being  generated.  If  no  source  tape  was 
generated  (IGCUT  =  0)  they  may  also  be  used  to  edit  an 
existing  source  tape. 

Card  16  -  Number  of  Energy  Bins  for  Source  Tape  Edit  (Format 

T5 

NOUT  Number  of  output  energy  bins.  Within 

each  of  these  energy  bins,  the  edit 
will  provide  the  number  of  secondary 
gammas  generated  in  each  region. 

Card  17  -  Energies  for  Source  Tape  Edit  (Format  5E14.5) 

Enter  the  limits  of  the  output  energy  bins  for  the 
source  tape  edit  in  decreasing  order.  There  should  be  a 
total  of  (NOUT  +  1)  entries. 

4.3  ORGANIZATION  OF  THE  SAM-C  PROGRAM 

The  SAM-C  program  consists  of  two  main  programs  and 
their  associated  subroutines. 

The  first  main  program  is  TUNC.  TUNC  reads  and  proc¬ 
esses  all  input.  The  input  is  distributed  among  various 
common  blocks  and  in  an  array  labeled  MASTER  or  ASTER.  The 
two  arrays  are  equivalenced  and  the  different  names  are  used 
to  reference  fixed  point  or  floating  point  data.  The  MASTER- 
ASTER  array  contains  the  bulk  of  the  input,  i.e.,  cross 
sections,  geometry,  and  Monte  Carlo  track  length  scores.  A 
diagram  detailing  the  allocation  of  storage  in  the  MASTER- 
ASTER  array  is  shown  in  Appendix  D.  A  flow  chart  of  the 
TUNC  program  is  shown  in  the  discussion  of  the  TUNC  routine. 


The  second  main  program  is  called  MONTE.  MONTE  con¬ 
trols  the  actual  Monte  Carlo  calculation  and  the  flux-at- 
a-point  calculation.  The  routine  controls  the  reading  of 
cross-section  bands  and  the  writing  on  tape  of  the  answer 
arrays.  A  detailed  discussion  is  given  in  the  description 
of  the  MONTE  program. 

4.3.1  __  Descript i on  of  Routines 

This  section  gives  a  brief  description  of  every  routine 
in  the  program.  The  routines  which  have  an  asterisk  (*) 
superscript  are  of  major  importance.  The  descriptions  are 
given  in  alphabetical  order.  The  brief  descriptions  are 
followed  by  detailed  descriptions  of  the  important  routines. 

Note  that  the  following  routines  are  used  by  the  SAM-C 
program  and  the  MAGIC  program. 


BOX 

SPH 

DIGCON 

TROPIC 

FLOCON 

UNI 

Gl 

UN  2 

S 

WOWI 

SEE  3 

The  above  routines  are  described  in  Section  3.3.1. 

Description 


An  input  processing  routine  to  read  in 
arbitrary  polyhedron  (ARB)  data.  The 
routine  will  check  for  errors  and  also 
put  the  data  in  the  MASTER  array. 

A  tracking  routine  to  calculate  distance 
to  first  intersection  (RIN)  and  distance 
to  last  intersection  (ROUT)  for  the  ARB 
figure . 


Routine 

ALBERT 

ARB 
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Routine 

BAND* 


BEDIT 

BOX 


CARLO* 

CLOC 

DCOSP 

DIGCON 


DIREC 


Description 

The  cross-section  processing  routine. 

The  routine  reads  in  composition  data. 
Element  data  for  the  required  elements 
is  read  from  an  element  data  tape  (EDT) . 
The  element  and  composition  data  are 
used  to  calculate  macroscopic  total 
cross  sections.  Composition,  element, 
and  total  cross-section  data  are  placed 
in  the  MASTER  array  and  on  the  organized 
data  tape  (ODT) . 

A  routine  to  edit  the  (ODT)  in  a 
readable  form. 

A  tracking  routine  to  calculate  distance 
to  first  intersection  (RIN)  and  distance 
to  last  intersection  (ROUT)  for  the  BOX 
figure . 

The  Monte  Carlo  calculation  routine. 

The  routine  controls  importance  sampling, 
collision  mechanics,  and  scoring. 

This  routine  will  print  the  time  as  com¬ 
puted  by  the  computer  internal  clock. 

Given  two  position  vectors,  XA  and  XB , 
the  routine  will  compute  direction  cosines 
WA  from  XA  to  XB. 

A  routine  to  read  Hollerith  data  and 
convert  to  integer  data.  The  routine  is 
called  by  GENI  and  is  part  of  the  input 
processing  procedure. 

Using  a  direction  vector  W  as  a  polar 
axis,  a  direction  W'  is  generated  the 
cosines  of  whose  polar  angle  is  CSTHT 
and  with  random  azimuthal  angle.  Thus, 
new  direction  cosines  W'  are  computed 
such  that 

W  •  W*  =  CSTHT- 

The  routine  is  used  in  computing  the 
new  direction  after  a  scattering. 
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Routine 


Description 


DR*  The  collision  mechanics  routine.  The 

routine  is  used  to  calculate  macro¬ 
scopic  total  cross  sections  as  a 
function  of  energy.  The  routine  also 
determines  energy  and  angle  after 
scattering . 

ELL  A  tracking  routine  to  calculate  distance 

to  first  intersection  (RIN)  and  distance 
to  last  intersection  (ROUT)  for  the 
ellipsoid  of  revolution. 

EDIT  The  flux  edit  routine.  The  routine 

prints  flux  answers  as  a  function  of 
energy  and  regions,  and  dose  answers  as 
a  function  of  region.  The  routine  also 
prints  flux-at-a  point  results. 

FAP*  The  f lux-at-a-point  calculation  routine. 

The  routine  calculates  f lux-at-a-point 
scores  as  a  function  of  energy  and 
detector  point.  The  scores  are  stored 
in  the  MASTER  array  and  printed  out  by 
the  EDIT  routine. 

FLOCON  A  routine  to  read  Hollerith  data  and 

convert  to  floating  point  data.  The 
routine  is  called  by  GENI  and  is  part 
of  the  input  processing  procedure. 

GE  A  routine  called  by  FAP  to  compute 

intermediate  results  to  be  used  in  the 
f lux-at-a-point  scores. 

GENI*  The  major  geometry  input  processing 

routine.  The  routine  reads  geometry 
data,  checks  for  errors,  and  puts  the 
data  into  the  MASTER  array  in  the  form 
required  by  the  tracking  routines. 

Gl*  The  main  geometry  tracking  routine.  Given 

a  position  X,  a  direction  W,  and  a  region 
IR  the  routine  will  calculate  the  distance 
"S"  from  the  point  X  to  the  next  region 
in  the  direction  W.  The  routine  also 
determines  IR'  the  next  region  to  be 
encountered . 


Routine 

INPUTD* 


NOPR 

MONTE* 


PACK 


PEDIT 


PICK 


RAW 


REC 


Description 

The  Monte  Carlo  input  routine.  The 
routine  reads  Monte  Carlo  input  data 
and  stores  it  in  the  MASTER  array  for 
use  by  the  calculation  routines. 

Region  specification,  importance  sam¬ 
pling  data,  output  energy  meshes,  and 
f lux-at-a-point  data  are  handled  by 
this  routine. 

A  routine  to  return  the  current  status 
of  the  computer  internal  clock. 

The  control  routine  for  the  Monte  Carlo 
calculations.  The  routine  manipulates 
the  organized  data  tape  (ODT)  and  the 
supergroup  tapes.  The  routine  also 
outputs  on  tape  the  scores  for  each 
statistical  aggregate  for  later  use  by 
the  edit  routines. 

A  routine  to  pack  the  position,  direction, 
energy  and  weight  data  for  a  particle 
into  seven  computer  words.  The  seven- 
word  records  are  used  for  latent  storage 
and  for  output  onto  the  interaction/ 
transmission  tape. 

The  control  program  for  the  edit  routines. 
The  routine  sets  up  arrays  for  use  as 
storage  for  the  edit  routines. 

The  control  routine  for  supergroup 
latents.  This  routine  stores  particles 
whose  energies  are  not  included  in  the 
supergroup  currently  being  processed. 

These  particles  are  stored  by  PICK  in 
either  the  central  memory  or  on  tapes 
depending  on  the  amount  of  core  avail¬ 
able  for  the  particular  problem. 

A  tracking  routine  to  calculate  distance 
to  first  intersection  (RIN)  and  distance 
to  last  intersection  (ROUT)  for  the  right 
angle  wedge. 

A  tracking  routine  to  calculate  distance 
to  first  intersection  (RIN)  and  distance 
to  last  intersection  (ROUT)  for  the  right 
elliptic  cylinder. 
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Routine 


Description 


REACOM 


RCC 

RPP 

RPPIN 

RPP2 

SEEK 

S 

SOUCAL* 

SOUPIC* 


This  routine  reads  all  of  the  common 
blocks  from  tape.  At  the  point  of 
writing  all  the  input  has  been  proc¬ 
essed  and  distributed  among  the  common 
blocks.  All  common  blocks  are  written 
on  tape  and  will  be  read  in  by  subse¬ 
quent  Monte  Carlo  routines  using  REACOM. 

A  tracking  routine  to  calculate  distance 
to  first  intersection  (RIN)  and  distance 
to  last  intersection  (ROUT)  for  the 
right  circular  cylinder. 

A  tracking  routine  to  calculate  distance 
to  first  intersection  (RIN)  and  distance 
to  last  intersection  (ROUT)  for  the 
rectangular  parallelepiped. 

An  input  processing  routine  to  process 
the  RPP  data  and  store  it  in  the  MASTER 
array . 

Given  that  a  ray  has  intersected  an  RPP, 
the  routine  will  determine  which  RPP  lies 
on  the  other  side. 

Given  a  vector  ET  with  elements  monoton- 
ically  decreasing  and  a  variable  E,  this 
routine  will  search  through  the  ET  and 
determine  the  bin  containing  E. 

A  routine  used  in  extracting  RPP  data 
from  the  MASTER  array. 

The  input  processor  for  the  source  infor¬ 
mation  required  by  the  Monte  Carlo 
routines.  The  routine  processes  energy 
and  time  spectrum  data,  and  source  region 
data.  The  data  are  stored  in  the  MASTER 
array . 

A  routine  to  generate  initial  source 
particles.  The  routine  uses  the  source 
information  processed  by  SOUCAL  and 
delivers  position,  energy,  time,  direc¬ 
tion,  and  weight  data  for  source  particles. 
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Routine 

SPH 


SUBED 


STAT 


TALLY 


TERP 

TRALA 


Description 

A  tracking  routine  to  calculate  distance 
to  first  intersection  (RIN)  and  distance 
to  last  intersection  (ROUT)  for  the 
sphere  figure. 

The  main  edit  routine.  The  routine 
reads  the  answer  arrays  from  the  sta¬ 
tistical  aggregate  tape  and  prepares  it 
for  editing  by  the  EDIT  routine.  Dose 
responses  are  also  calculated  in  this 
program. 

A  routine  to  calculate  standard  devia¬ 
tions.  The  routine  accepts  data  from 
the  EDIT  routine  and  computes  standard 
deviations . 

A  summary  routine.  The  routine  prints  a 
one  line  summary  of  results  for  each 
statistical  aggregate.  Quantities  such 
as  number  of  collisions,  absorptions, 
degradations,  births,  and  deaths  are 
printed  for  each  aggregate. 

A  linear  interpolation  routine. 

A  tracking  routine  used  by  FAP ,  the 
main  f lux-at-a-point  routine.  The 
routine  computes  distances  from  an  initial  point 
to  a  final  point. 


TRC 


TROPIC 


TUNC* 


A  tracking  routine  to  calculate  distance 
to  first  contact  (RIN)  and  the  distance 
to  last  contact  (ROUT)  for  the  truncated 
right  cylinder. 

A  routine  to  generate  a  vector  of 
direction  cosines  from  an  isotropic 
direction . 

The  main  control  program  for  the  entire 
Monte  Carlo  program.  The  routine 
controls  the  cross-section  processing 
routines,  BAND  and  BEDIT ,  the  geometry 
input  routine,  GENI ,  and  the  Monte  Carlo 
input  routine,  INPUTD. 
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Routine 

UNPR 

UNI 


UN  3 

UNPACK 

VELF 

VOLUM 

WOWI* 

WRICOM 

WRT14 

XDIST 


Description 

A  routine  to  unpack  two  computer  words 
containing  six  integer  variables  and  to 
deliver  the  six  integer  variables  stored 
in  the  common  block  labeled  REGPAR. 

A  routine  to  unpack  the  integer  part  of 
a  word  containing  a  packed  floating  point 
and  an  integer  variable. 

A  routine  to  unpack  a  computer  word  con¬ 
taining  three  integer  variables. 

A  routine  to  unpack  a  seven-word  vector 
containing  position,  direction,  energy, 
and  weight  information. 

The  velocity  computation  routine.  The 
routine  is  used  only  for  time-dependent 
problems  and  computes  velocity  as  a 
function  of  energy. 

The  volume  computation  routine.  Region 
volumes  are  computed  by  numerical 
integration . 

The  routine  that  determines  which  region 
a  ray  will  enter  next.  The  routine  is 
called  by  ,!G1". 

The  routine  which  writes  all  common  blocks 
on  tape  after  all  input  has  been  proc¬ 
essed.  The  routine  is  called  by  TUNC. 

A  routine  to  write  seven-word  records  onto 
tape.  The  routine  is  called  whenever  a 
transmission  or  interaction  is  to  be  put 
on  tape. 

Given  XA  and  XB ,  two  position  vectors, 
the  routine  computes  the  geometric  dis¬ 
tance  between  XA,  XB. 
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Subroutine  BAND 


The  purpose  of  BAND  is  to  arrange  the  cross-section 
data  in  an  organized  fashion  for  the  particular  problem  in 
process . 

The  GENDA  and  GENPRO  programs  are  used  to  generate  an 
element  data  tape  (EDT)  which  contains  microscopic  cross 
sections  and  probability  tables  for  all  nuclides  of  interest. 
This  EDT  can  be  considered  as  a  library  tape  for  any  subse¬ 
quent  Monte  Carlo  problems. 

For  a  specific  problem,  however,  the  system  is  divided 
into  regions  which  contain  given  nuclide  compositions. 

Each  composition  may  be  described  by  a  set  of  nulcides  and 
their  respective  concentrations.  When  a  particle  enters 
collision  at  some  point  within  a  region  of  given  composition, 
the  Monte  Carlo  program  has  to  select  the  nuclide  in  the 
composition  with  which  the  particle  collides. 

The  probability  that  a  particle  with  energy  E  will 
interact  with  nuclide  k  of  the  composition  R  is  given  by 

P(*,R)=  C0»,r)<5-  (*,*)/ 

where  A^r (e)  is  the  total  macroscopic  cross  section 
of  the  composition,  and  CO,R)  is  the  concentration 
of  nuclide  k  in  region  R. 
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No  ^"k,r 


C  ( &  >  R)  =  & 

where  =  density  of  the  nuclide,  k 

Ak  =  its  atomic  weight 

No  =  0.06023  x  1025,  Avoqadro's  number 
R  =  volume  fraction  of  the  nuclide. 

The  BAND  program  searches  and  reads  from  the  EDT  all 
information  concerning  the  nuclides  which  appear  in  the 
various  compositions  specified  in  the  input.  It  computes 
the  total  macroscopic  cross  sections  of  each  composition  at 
each  final  energy,  H*t, r  ,  using  the  concentration 

data  supplied  as  input  to  the  program.  Finally,  it  stores 
all  data  concerning  the  nuclides  and  the  compositions  of 
the  problem  in  a  prescribed  order. 

Hence,  the  role  of  BAND  is,  above  all,  the  organization 
of  the  cross-section  and  probability  data  read  from  the  EDT. 
In  addition,  it  computes  and  stores  the  /^r,«  5  • 

Mt,R  (£?)  z  ^  ^  )  * 

fe's  in  R 


The  output  energy  mesh  for  BAND  is  the  same  as  that  of 
the  EDT.  Although  the  present  GENPRO  output  is  at  a  fixed 
lethargy  mesh,  BAND  and  subsequent  programs  can  accept  an 
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arbitrary  energy  mesh. 

The  output  of  BAND  is  arranged  in  energy  bands.  The 
number  NBAND  of  bands,  and  the  (NBAND  +  1)  band  limits  are 
specified  on  input.  The  ODT  consists  of  all  cross  sections 
and  probability  tables  for  the  high-energy  band  for  all 
nuclides  and  compositions,  followed  by  all  cross  sections 
and  probability  tables  for  the  next  energy  band  for  all 
nuclides  and  compositions,  etc.,  down  to  the  lowest  energy. 
Subroutine  BEDIT 

BEDIT  edits  the  ODT  generated  by  BAND.  The  edit  is  by 
energy  band. 

First  Line 

BAND-FLAG,  sequential  number  of  the  band  being  edited. 
Second  Line 

NO.  of  BANDS,  total  number  of  bands  in  problem. 

Third  Line 

Is  a  headinq  for  the  table  that  follows. 

JEN1  is  the  location  of  the  first  word  of  the  energy 
mesh  table;  JEN 2  is  the  location  of  the  next  to  the  last 
word  of  the  energy  mesh  table. 

Next  Heading 

REGION  Composition  number 

LOCMU  The  location  of  the  first  word  of  the 

macroscopic  total  cross-section  table 
for  that  composition 

LOCCON  The  location  of  the  first  word  of  the 

table  giving  the  concentrations  of 
different  nuclides. 
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This  is  followed  by  a  table  for  all  compositions 
present  in  the  problem. 

Next  Heading 

CONC  Concentration  of  nuclide 

LOC  Location  of  the  first  word  of 

microscopic  cross-section  data 
for  the  nuclide 

ATWT  Atomic  weight  of  the  nuclide. 

This  is  followed  by  a  table  for  all  nuclides  in  each 
composition  present  in  the  problem. 

This  is  followed  by  a  printout  for  each  nuclide  present 


in  the  problem. 

Heading 

LOELEV 

Location  of  first  word  of  table 
giving  discrete  energy  levels 

ATWT 

Atomic 

weight  of  nuclide 

LPLEV 

Number 

of  discrete  energy 

levels 

LCHI 

Length 

of  CHI-table 

LENN 

Length 

of  ENN-table 

We  will  mention  here  that  the  angular  distribution  (E, 
cos©  )  is  divided  into  N  equally  probable  intervals  of 
cos  0  .  The  N  +  1  boundaries  of  cos  0  define  N  +  1  values 
of  X  =  (1  +  cos©  )/2,  which  are  stored  in  a  CHI  table  for 
the  energy  E.  The  length  of  the  CHI-table  is  N  +  1. 

Similarly  the  spectrum  of  inelastic  neutrons  P(E,E* ) 
is  divided  into  M  equally  probable  intervals  of  E '  ,  and  the 
M  +  1  boundaries  of  E;  are  stored  in  an  ENN-table  for  the 
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energy  E.  M  +  1  is  the  length  of  the  ENN  table 
Next  Heading 


E 

SIGMA 


SCATTER 

PLEV 


ABSORB 

ENN 


L 


Total  cross  section,  in  barns 

If  CHI  =  1,  elastic  scattering  is 
isotropic  in  the  CM  system. 

If  CHI  =  2,  elastic  scattering  is 
with  hydrogen  (special  routine) . 

If  =  4,  elastic  scattering  isotropic 
in  the  lab  system. 

If  =  5,  the  Klein-Nishina  formula 
is  to  be  used  (gamma  rays  only) . 

If  >5,  the  CHI  is  the  location  of 
the  first  word  of  the  appropriate 
CHI-table . 

Elastic  scattering  cross  section, 
in  barns 

If  =  0,  inelastic  scattering  is 
not  via  discrete  levels.  If  >0, 

PLEV  is  the  location  of  the  first 
word  of  a  table  giving  prob¬ 
abilities  to  excite  the  various 
levels . 

Absorption  cross  section,  in  barns 

If  =  0,  inelastic  scattering  does 
not  give  rise  to  a  continuous 
spectrum  of  inelastic  neutrons. 

If  >0,  ENN  is  the  location  of  the 
first  word  of  the  appropriate  ENN 
table . 

Location  of  the  total  cross-section 
entry . 


This  is  followed  by  a  listing  of  all  the  tables  re¬ 


ferred  to  (CHI,  ENN,  PLEV,  ELEV) ,  together  with  their  rela¬ 


tive  locations. 


After  the  printout  for  all  the  elements  comes  the 
printout  of  macroscopic  cross  sections  for  all  the  composi¬ 
tions,  in  cm-'*-  vs  E,  in  ev. 
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This  is  the  end  of  the  edit  for  neutron  problems.  For 
T-rays,  one  has,  in  addition,  a  printout  of for 
each  composition,  where  C-^  is  a  concentration ,  and  Z^  is  an 
atomic  number. 

Subroutine  CARLO 

Source  particles,  either  read  from  source  tape  or 
generated  internally  by  the  subroutine  SOUPIC,  as  well  as 
latents ,  are  tested  on  energy.  If  the  energy  is  below  the 
lower  bound  of  the  supergroup  currently  treated,  they  are 
stored  as  latents.  For  energies  within  the  supergroup, 
they  are  transmitted  to  the  subroutine  CARLO  which  tracks, 
distributes  further  collisions,  if  any,  and  scores  answers. 

Given  the  region  number  IR,  the  energy  E,  and  the  di¬ 
rection  of  flight  WB,  a  total  weight 

w  -  w «  We  *  WA 

is  calculated  and  a  new  F  given  by  the  ratio  F/W  is  treated 
as  the  total  number  of  biased  particles  born  simultaneously 
at  XB,  T,  with  an  energy  E,  in  the  direction  WB.  The  carry- 
along  statistical  weight  Wc ,  can  be  considered  as  a  normal¬ 
ization  factor,  to  be  transmitted  to  all  future  collided 
particles  due  to  the  present  source  particle.  For  inter¬ 
nally  generated  particles  the  quantity  F  always  will  be 
unity.  Externally  generated  particles  will  have  an  F  dif¬ 
ferent  from  unity  if  they  were  not  picked  from  the  properly 
biased  source  distribution.  The  quantity  F  is  tested  vs  an 
input  cutoff  value  FZ .  If  it  is  smaller,  a  game  of  chance 
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is  played,  and,  with  probability  (1-F)  the  particle  is 
killed?  whereas  with  probability  F  the  particle  is  kept 
with  F  set  as  unity.  These  two  events  are  scored  as  either 
(FxW)  "kills"  or  (l-F)xW  "births". 

If  the  particle  survives  the  test,  a  subroutine  DR 
is  called,  which  provides  the  total  macroscopic  cross  sec¬ 
tion  /U.  in  the  region  IR.  A  random  number  is  picked  for 
picking  future  collision  points. 

/  / 

A  geometry  routine  Gl(S^,  IR  ,  X)  is  called  to  provide 
the  distance  to  the  first  region  boundary  encountered 
from  XB  in  the  direction  WB .  Ir'  is  the  region  number  on 
the  other  side  of  the  boundary,  and  X* is  the  point  of  inter 
section  of  the  track  with  the  boundary.  If  the  region  IR 
is  a  scoring  region,  the  contribution  to  the  flux  is  cal¬ 
culated  and  scored.  Points  where  particles  enter  into 
collision  are  picked  by  computing 


-M  5, 


£  I  •  *  •  ■  • 

If  5  <0 ,  a  particle  comes  into  collision  m  region 
IR  at  X  =  XB  +  S>WB  where  S  =  ~l//u  log  (1  ~  &/F)  ;  the  inter 
action  routine  DR  is  called  to  pick  a  particle  coming  out 
of  collision.  The  interaction  is  written  on  tape,  and  the 
particle  coming  out  of  collision  (if  any  )  is  stored  as  a 
latent.  is  then  increased  by  one,  and  control  is  re- 

i 

turned  to  the  part  of  the  code  which  computes  f  to  attempt 
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I 

to  produce  more  collisions  in  region  IR.  When  $  ,<0,  no 

» 

more  collisions  are  produced  in  region  IR.  F  is  then  set 
to  F  x  e~^3'  x  W,  where  W  is  the  weight.  A  test  is  made 
whether  the  next  region  is  a  transmission  region  (if  it  is, 

/  i  , 

the  coordinates  X,  IR,  energy,  time,  etc.,  are  written  on 

tape)  and  whether  it  is  the  escape  region.  If  it  is  not 

an  escape  region,  the  particle  tracked  is  moved  to  the 

boundary  by  setting  IR  =  IR#  ,  by  computing  the  new  weight 

W,  and  by  setting  a  new  F  equal  to  F/W.  If  F  <FZ,  the 

particle  is  either  killed  or  F  is  set  equal  to  1,  both 

events  being  properly  tallied.  For  F  <FZ,  ^  is  set  equal 

to  ,  the  DR  routine  is  called  to  obtain  the  new  total 

cross  section  /J.  ,  and  control  is  transferred  to  the  part 

/  / 

of  the  code  which  calls  the  geometry  routine  G1  (S-l,IR,X)  , 
thus  the  tracking  continues  until  either  a  kill  occurs  or 
the  escape  region  is  reached.  In  the  latter  case  F 
"escapes"  are  tallied. 

Subroutine  DIREC  (CSTHT ,  W,  WP) 

Using  W  as  a  polar  axis,  a  direction  W'  is  generated 
the  cosines  of  whose  polar  angle  is  CSTHT  and  with  a  random 
azimuthal  angle.  Thus  the  new  direction  cosines  W'  are 
computed  such  that: 

W  •  W'  =  CSTHT 
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I 

I 

The  routine  will  first  generate  the  sine  and  cosine, 
sin<D ,  cos<l>  of  the  random  azimuthal  angle.  The  procedure  is 
as  follows: 

1.  Pick  two  random  numbers  ,  X2-I.O 

The  point  P  lies  in  the  quarter  circle  if 
xl2  +  x22  *!• 


2.  Pick  sets  of  X-^ ,  X2  until  X^2  +  X22sl. 

3.  At  this  point  the  random  angle  is  CU'J’stt 

If  we  take  2<t>  as  our  random  angle,  the  range 
becomes  (0,2tt)  and 

cos  *=  X12-X22 


sin4>  =  2*X^X2 
Xx2+X22 

4 .  Given  sin$  and  cos$  the  new  set  of  direction 
cosines  is 

WP(1)  =  T2  •  (W(l)  -W(3)  -sin<D  +  W(2)  COS'D  }+W  (1)  ,CSTHT 
WP(2)  =  T2  •  {W  (2) -W(3)  •  sin$>  -  W(l)  cos<D  }+W  (2)  -CSTHT 
WP (3)  =  W ( 3 ) • CSTHT  -  ^^2  sin4> 
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Where  T-,  = 


I 


WP ( 3 )  =  CSTHT • W ( 3 ) 

Subroutine  DR  (N ,  NNREG) 

This  routine  performs  all  of  the  collision  mechanics. 

The  routine  is  called  by  CARLO  and  FAP  to  retrieve  total 
cross  sections  and  to  make  collisions.  Subroutine  TRALA 
will  call  the  routine  to  retrieve  total  cross  sections. 

The  argument  NNREG  is  the  composition  number  and  the 
argument  N  defines  the  calculation  to  be  performed.  The 
calculations  performed  for  each  value  of  N  are  given  below. 

N  =  1 

Find  the  energy  interval  containing  the  current  energy 
(E) .  Subroutine  SEEK  is  used  here.  Compute  an  interpola¬ 
tion  factor  (FACINT)  to  be  used  in  calculating  point  values 
of  cross  sections  at  energy  E.  The  remainder  of  the  calcula¬ 
tion  for  N  =  1  is  the  same  as  for  N  =  2. 

N  =  2 
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Calculate  the  macroscopic  total  cross-section  (FMUTOT) 
for  composition  NNREG.  The  calculation  is  done  by  linear 
interpolation  between  the  two  point  values  of  the  cross- 
section  interval  and  corresponding  energy  interval  contain¬ 
ing  E.  The  interpolation  factor  FACINT  is  used. 

The  DR  routine  is  called  with  N  =  1  only  when  a  new 
energy  is  encountered  by  the  CARLO  or  FAP  routines.  Given 
the  energy  interval  and  the  interpolation  factor,  the  N  =  2 
option  is  used  when  the  composition  number  NNREG  changes 
and  E  remains  constant. 

N  =  3 

This  option  performs  the  actual  collision  mechanics. 
The  output  will  be  a  new  energy  (EPRIM) ,  a  new  direction 
(WP) ,  the  cosine  of  the  scattering  angle  (CSTHT) ,  and  an 
integer  (NCDB)  denoting  the  type  of  interaction.  The  types 
of  interaction  are  listed  below. 

NCDB  INTERACTION 

1  Scattering  with  hydrogen 

2  Isotropic  elastic  scatter 

3  Anisotropic  elastic  scattering 

4  Scattering  in  the  LAB  system, 
no  degradation 

5  Elastic  scattering  for  gammas 

6  Absorption 

7  Inelastic  continuous  scattering 

8  Inelastic  discrete  scattering 


206 


Subroutine  FAP 


The  method  used  to  estimate  f lux-at-a-point  involves 
obtaining  by  normal  Monte  Carlo  methods  a  distribution  of 
points  where  particles  enter  into  collision  and  estimating 
the  once-more-collided  flux,  at  the  point  of  interest, 
using  a  special  distribution  of  the  last  collision  point. 


Assuming  a  collision  point  at  S ,  a  detector  at  D,  as  shown 
in  the  sketch,  the  expression  for  the  once-more-collided 
flux  is 


3  >a 


axA  5 


<t> = j  fs  ( W ')  e'  °  -  '“a  ft  ( c° s  0z)  e 


_  j  A*dS 


dV 


4T XY} 


4Trt,J 


where  gg(W)dW  is  the  probability  of  scattering  through  an 
angle  whose  cosine  is  in  the  range  (W,  W+dW) . 
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For  source  particles  one  has  to  estimate  in  addition 
the  uncollided  flux. 

If  the  intermediate  points  A  are  picked  from  a  dis¬ 
tribution  given  by 

R  dV 

n  3  t  7~Z  T 

7T  r2 

the  estimator  becomes 


-  f  V^5  f 

'  )a  & 


This  is  the  method  used  in  the  present  code.  It  turns  out 
that  there  is  a  very  simple  way  to  pick  intermediate  points 
A  from  the  distribution,  if  a  proper  choice  of  coordinate 
system  is  made. 

Let  us  define  the  point  A  by  the  three  angles  0i,02  and 
4>  where  and  ©2  •  ar*d  4*  are  defined  on  the  sketch  and  is 
an  azimuth  around  SD.  The  distribution  becomes: 

R_  r^sme, ae,  d4>  as, 

IT3  r,z  rz2 

Using  the  relationship: 

r,  _  yx  =  R 

Sm(02-0,)  Sin  0,  &in0z 
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one  has 


y  -  Sin  6,  hr,  _  sin  6i 

Z  Sm0*  Jq2  ~  sinzQz 

Substituting,  one  obtains  the  distribution 

'  c La,  <tet  d<t> 

ir3 

i.e.,  a  random  distribution  of  ,  ©>  ,  <fi  in  the  range 
o  <  e(  <  e2  < 
o  <  4>  <  Z'H'  . 

Once  and  ^2  are  picked,  the  cosine  of  the  angle  of 
scattering  w  is  easily  obtainable,  and  the  score  can  be 
evaluated . 

In  the  actual  program,  coding  is  provided  for  either 
the  procedure  outlined  above,  which  gives  a  finite  variance 
provided  the  detector  is  not  in  the  immediate  vicinity  of 
the  source  region,  or  for  a  simple  statistical  estimation 
method,  which  gives  finite  variance  if  the  detector  is  not 
in  the  immediate  vicinity  of  either  the  source  region  or 
of  a  scattering  material.  In  that  case  the  quantity 

(cose)  e~X  /Kc<s 

+  H'Ri 
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is  scored  for  each  collision  point  S,  where  ^  is  the  angle 
between  the  directions  0  and  SD.  The  type  of  calculation 
to  be  performed  is  specified  on  input,  by  specifying  the 
total  number  of  detectors  ND,  and  the  number  NDFAP  of  de¬ 
tectors  ND ,  and  the  number  NDFAP  of  detectors  for  which  the 
first  procedure  is  to  be  applied.  The  remaining  (ND-NDFAP) 
detectors  will  be  treated  by  statistical  estimation. 

If  ND  ^  0,  the  f lux-at-a-point  routine  FAP  is  called 
for  each  source  particle  by  the  MONTE  program,  and  for  each 
collision  point  by  the  CARLO  routine,  except  if  inelastic 
scattering  occurs  giving  an  outgoing  energy  below  the 
supergroup  being  currently  treated.  In  that  case  the  par¬ 
ticle  is  stored  as  a  latent,  and  MONTE  will  call  the  FAP 
routine  with  that  latent  when  the  proper  supergroup  will 
be  treated. 

Once  called,  the  subroutine  FAP  examines  whether  the 
particle  to  be  treated  is  a  source  particle,  a  particle 
coming  out  of  inelastic  scattering,  a  particle  coming  out 
of  elastic  scattering,  or  a  latent  from  a  previous  FAP  cal¬ 
culation.  In  the  first  three  cases,  the  trigonometric 
functions  of  ® j  and  0  2  picked  according  to  the  distribution 
are  obtained.  This  is  done  rather  efficiently  by  picking 
directly  the  sin  and  cos  functions  of  two  random  angles, 
and  then  determining  which  corresponds  to  the  smallest 
angle,  and  therefore  which  should  be  assigned  to  0^ ?  the 
others  are  assigned  to  0 2 •  ® and  0 2  are  kept  the  same  for 
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all  FAP  detectors  in  the  problem. 

For  source  particles,  the  uncollided  flux  is  computed 
(the  source  is  assumed  to  be  isotropic) . 

The  contribution  of  the  once-more-collided  flux  is 
computed  as  follows.  The  distances  r^  and  r2  are  given  by 
r9  =  R  sin01/sin©2  and  r1  =  R  sinQ1-r2sin02 .  A  random 
azimuth  around  §5  is  picked.  For  both  source  particles  and 
inelastic  particles,  gs  =  1,  and  the  outgoing  energy  is  as 
set  by  the  main  code  (either  energy  of  the  source  particle, 
or  energy  of  the  inelastic  particle) .  (No  energy-angular 
correlation  is  assumed  in  the  code.  The  difference  between 
lab  and  center-of-mass  system  is  also  ignored  for  inelastic 
scattering.)  For  particles  coming  out  of  elastic  scatter¬ 
ing,  the  angle  of  scattering  is  computed  in  the  lab  system. 

A  subroutine  GE  is  called.  For  neutrons,  it  performs  the  transformation 
to  the  CM  system,  looks  up  the  probability  gg  and  computes  the  outgoing 
energy  E.  For  gamma  rays  g_  and  E  are  given  by  the  Klein-Nishina  formu- 
la.  If  this  energy  is  below  the  supergroup  currently  treated,  the  par- 
energy  is  below  the  supergroup  currently  treated,  the  par¬ 
ticle  is  stored  as  a  latent  of  the  first  kind  to  be  picked 
up  and  returned  to  this  point  of  the  coding  at  a  later  time 
in  the  calculation. 

The  subroutine  DR  is  called,  and  the  total  cross  sec¬ 
tion  p  is  made  available.  A  subroutine  TRALA  is  called, 
which  tracks  the  particle  a  distance  r-j_  in  the  direction  of 
flight,  with  an  energy  E,  and  computes  A,=  jQyUe^'^>  > 
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is 


if  the  particle  escapes,  an  'infinite'  A,  (A,=IOi7 
returned,  no  score  is  made,  and  the  next  (if  any)  detector 
is  treated.  If  the  particle  did  not  escape,  the  subroutine 
DR  is  called  to  determine  the  type  of  interaction  occurring 
at  the  intermediate  point.  Absorption  corresponds  to  no 
score.  For  inelastic  particles,  E  is  picked  from  the  spec¬ 
trum  by  the  DR  routine,  and  gA  =  1 .  For  elastic  scattering, 
the  subroutine  GE  determines  gA  and  E.  If  the  energy  E  is 
below  the  supergroup  currently  treated,  the  particle  is 
stored  as  a  latent  of  the  second  kind,  to  be  picked  up  and 
returned  to  this  point  of  the  coding  at  a  later  time  in  the 
calculation.  Finally,  the  subroutine  TRALA  provides 


and  the  total  contribution  is  calculated  and  scored,  and  the 
next  detector  (if  any)  is  considered,  unless  the  calculation 
dealt  with  a  latent  of  either  first  or  second  kind,  which 
applies  only  to  a  particular  detector.  When  all  FAP  detec¬ 
tors  have  been  considered,  the  statistical  estimation  de¬ 
tectors  are  treated  by  using  the  coding  described  above  for 
the  tracking  from  intermediate  point  to  the  detector,  where 
the  intermediate  point  is  replaced  by  the  original  collision 
point. 
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Subroutine  MONTE 


The  program  MONTE  is  the  program  where  all  the  tracking 
and  collision  mechanics  are  performed.  The  program  arranges 
the  calculations  in  supergroups.  We  have  seen  that  the  pro¬ 
gram  BAND  arranges  cross  sections  in  certain  energy  bands. 
The  output  energy  bins  are  also  arranged  in  certain  output 
supergroups.  Cross-section  input  corresponding  to  a  single 
band  can  be  stored  in  computer  memory  at  any  given  time. 
Scores  corresponding  to  a  single  output  supergroup  can  be 
stored  in  computer  memory  at  any  given  time.  The  two 
meshes  (bands  and  output  supergroups)  do  not  necessarily 
coincide.  A  combined  mesh  defines  a  set  of  supergroups. 

The  program  MONTE  starts  by  reading  in  the  highest 
energy  cross-section  band,  and  by  arranging  the  memory  for 
the  highest  energy  output  supergroup.  The  highest  of  the 
low-energy  bounds  of  these  energy  ranges  defines  EBL ,  the 
low  energy  of  the  supergroup  currently  treated. 

The  program  then  calls  the  source-picking  routine 
SOUPIC,  and  examines  the  energy  E.  If  E<EBL ,  the  particle 
is  stored  as  a  latent  by  calling  the  subroutine  STORE,  and 
SOUPIC  is  again  called.  When  E>EBL ,  the  subroutine  CARLO 
is  called.  The  subroutine  CARLO  tracks  the  particle,  scores 
contributions  to  fluxes  when  needed,  and  distributes  colli¬ 
sions  along  their  track.  Particles  coming  out  of  collision 
are  also  tracked  if  their  energy  is  above  EBL;  particles 
coming  out  of  collision  with  E<EBL  are  stored  as  latents  by 
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calling  STORE.  Control  is  finally  returned  to  MONTE,  which 
proceeds  to  the  next  source  particle,  until  a  complete 
statistical  aggregate  of  particles  has  been  treated  for  the 
highest  supergroup. 

At  this  point,  MONTE  switches  to  the  next  supergroup 
by  either  reading  a  new  band  of  cross-section  data,  or  by 
writing  out  on  tape  the  set  of  scores  obtained  and  preparing 
the  memory  layout  for  the  next  supergroup,  or  both.  It 
then  proceeds  to  call  a  subroutine  PICK,  which  picks  latents 
from  previous  supergroups.  If  E<EBL,  the  particle  is  stored 
again  as  a  latent  by  calling  STORE.  If  E>EBL,  CARLO  is 
called.  The  procedure  continues  until  all  latents  have  been 
examined,  at  which  point  MONTE  switches  to  the  next  super¬ 
group  until  the  low-energy  cutoff  is  encountered.  When  this 
occurs,  MONTE  switches  to  the  highest  supergroup,  and  pro¬ 
ceeds  to  treat  the  next  statistical  aggregate  of  particles. 
The  calculation  terminates  when  a  history  number  exceeds 
the  cutoff  value  NHIST  specified  on  input.  A  "blank"  inter¬ 
action  record,  with  NHIST  =  NHIST  +  1,  is  written  on  the 
interaction  tape  and  all  tapes  are  rewound.  Control  is 
transferred  to  TUNC  which  calls  the  editing  program  PEDIT. 

Subroutine  PACK  (X,  WX,  E,  IR,  T,  IDET,  F,  NHIST,  WC , 

J12345 ,  P) 

Subroutine  PACK  will  pack  all  the  items  in  the  above 
argument  list  into  seven  computer  words  and  store  them  into 
the  variable  P  which  has  a  dimension  of  7.  The  items  in 
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the  list  are  described  below. 

X  A  three-element  array  containing  X,Y,Z, 

position  coordinates 

WX  A  three-element  array  containing  X,Y,Z 

direction  cosines 

E  Energy  of  the  particle 

IR  Region  number  of  the  particle 

T  Time  of  flight  if  the  problem  is  time 

dependent 

IDET  A  f lux-at-a-point  detector  number  or 

zero 

F  An  importance  sampling  parameter 

NHIST  The  history  number  for  the  particle 

WC  An  importance  sampling  weight 

J12345  An  indicator  denoting  the  type  of 

particle . 

The  correspondence  between  the  individual  items  and 
the  packed  array  P  are  shown  as , 


p(l) 

X(l) 

packed 

with 

WX(1) 

48 

bits 

X  (1) 

12 

bits 

WX(1) 

P  ( 2 ) 

= 

X  ( 2 ) 

packed 

with 

WX  (2) 

48 

bits 

X  ( 2 ) 

12 

bits 

WX  (2) 

P  ( 3) 

= 

X  ( 3 ) 

packed 

with 

WX  (3) 

48 

bits 

X  ( 3 ) 

12 

bits 

WX  ( 3 ) 

P  ( 4 ) 

= 

E 

packed 

with 

IR 

45 

bits 

E 

15 

bits 

IR 

P  (5) 

= 

T 
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IDET 

45 

bits 

T 

15 

bits 

IDET 

P(6) 

a 

F 

packed 

with 

NHIST 

45 

bits 

F 

15 
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NHIST 

P(7) 

= 

WC 

packed 

with 

J12345 

45 

bits 

WC 

15 

bits 

J12345 

60  bit  computer  word 
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Note  that  the  WX  array  is  floating  point.  Thus,  in 
order  to  compact  it  into  12  binary  bits  truncation  is  re¬ 
quired.  The  actual  FORTRAN  statements  to  do  the  packing 
are  given  below. 

J  =  (WX(I)+1.0) *1024 . 

P(I)  =  (X(I) .AND.7777777777777770000B) .  OR.J 
where  1=1,  2 ,  3 . 

The  first  statement  puts  the  WX  in  the  range  0,2.  and 
truncates  it  to  an  integer  in  the  range  0,2048  which  will 
fit  into  12  bits.  The  second  statement  does  the  actual 
packing . 

Subroutine  PICK 

We  have  seen  throughout  the  previous  sections  that 
particles  degrading  below  the  energy  EBL ,  low-energy  limit 
of  the  supergroup  currently  treated,  were  stored  as  latents 
by  calling  the  subroutine  PICK.  They  were  later  picked  up 
by  MONTE  by  calling  the  subroutine  PICK.  The  subroutine 
INPUTD  allocates  the  memory  to  data,  scores,  etc.  The  re¬ 
maining  memory  is  assigned  to  the  subroutine  PICK,  to  be 
used  as  a  buffer  for  latents.  One  "end"  of  the  buffer  is 
assigned  to  "degraded"  particles.  This  is  the  end  of  the 
buffer  where  particles  are  being  stored.  The  other  "end" 
of  the  buffer  is  assigned  to  "unsorted"  particles,  i.e., 
the  particles  to  be  picked.  Associated  with  each  end  of 
the  buffer  is  a  magnetic  tape  to  be  used  when  the  buffer 
overflows.  There  are  two  modes  of  operation.  In  one  mode, 
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the  top  of  the  buffer  is  unsorted  and  the  bottom  is  sorted. 
When  the  switch  is  made  from  one  supergroup  to  the  next, 
the  "unsorted"  part  is  empty,  and  the  "degraded"  part  may 
have  particles  which  become  "unsorted"  for  the  supergroup 
about  to  be  treated.  The  designation  of  the  buffers  (and 
of  the  tapes)  is  therefore  switched. 

There  is  no  set  boundary  between  the  two  "ends"  of  the 
buffers.  The  number  of  particles  in  the  "unsorted"  buffer 
keeps  decreasing,  whereas  the  number  of  particles  in  the 
"degraded"  buffer  keeps  increasing,  and  can  increase  faster 
than  the  other  number  decreases.  Therefore,  the  two  parts 
of  the  buffer  can  meet,  causing  an  overflow  of  the  buffer. 

It  is  then  determined  which  "end"  of  the  buffer  is 
longest,  and  a  number  of  particles  exactly  equal  to  one- 
half  the  total  length  of  the  buffer  are  written  from  the 
longest  "end"  onto  the  corresponding  magnetic  tape. 

When  the  "unsorted"  buffer  becomes  empty,  a  test  is 
made  whether  any  "unsorted"  particles  are  available  on  the 
corresponding  magnetic  tape.  If  none  are  available,  the 
calculation  has  been  completed  for  the  current  supergroup. 

If  some  are  avaixable,  they  are  read  into  the  buffer  if 
room  is  available.  If  room  is  not  available,  it  is  made 
available  by  writing  out  part  of  the  other  buffer  on  the 
other  tape;  the  length  of  the  record  written  out  from  one 
"end"  is  equal  to  the  length  of  the  record  to  be  read  into 
the  other  "end". 
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The  subroutine  PICK  deals  with  different  kinds  of 


latents.  The  quantities  stored  are:  X,  SI,  E,  IR,  T,  I,  F, 
NHIST ,  WC ,  and  J12345,  where  X  is  the  position,  ft  the  direc¬ 
tion,  E  the  energy,  IR  the  region  number,  T  the  time,  F  the 
weight,  NHIST  the  history  number,  and  WC  a  normalization 
factor.  I  and  J12345  are  indices. 

J12345  =  1  -  identifies  a  source  particle 

=  2  -  identifies  a  particle  coming  out  of 
elastic  scattering 

=  3  -  identifies  a  particle  coming  out  of 
inelastic  scattering 

=  4  -  identifies  a  latent  of  the  second 
kind  for  FAP  only 

=  5  -  identifies  a  latent  of  the  first 
kind  for  FAP  only. 

(In  other  parts  of  the  code,  J12345  =  6  identifies  a  trans¬ 
mitted  particle,  J12345  =  7  an  inelastic  interaction,  and 
J12345  =  8  an  absorption.) 

I  is  irrelevant  (set  to  0)  for  J12345  =  1,  2,  3  (.and 
6).  For  FAP  latents  (J12345  =4,  5),  I  is  set  to  IDET,  the 
detector  number  for  which  the  latent  applies.  In  the  des¬ 
cription  of  interactions  (J12345  =7,  8),  I  is  set  to  IATWT, 
a  five-digit  identifier  of  the  element  with  which  the  inter¬ 
action  occurred. 

When  the  program  MONTE  calls  the  subroutine  PICK,  it 
examines  the  J12345  obtained  and  calls  the  proper  routines: 

J12345  =1,3-  both  FAP  and  CARLO 
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J12345  =2  -  CARLO  only 

=4,5-  FAP  only. 

Subrout ine  SEEK  (E,  EOUT ,  NOUT ,  I ) 

Given  the  vector  array  EOUT,  of  length  NOUT  +  1,  and 
the  argument  "E"  the  routine  will  perform  a  binary  search 
and  return  "I"  such  that 


EOUT (I) >E>EOUT (1+1)  . 

An  error  message  is  given  if  EOUT(l)<E. 
A  flow  chart  is  given  below. 


Note :  The  EOUT  array  must  be  monotonic  and  decreasing. 
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Subroutine  SOUCAL 


SOUCAL  will  read  source  data  and  prepare  tables  for 
use  by  SOUPIC. 

The  first  card  contains: 

NSR  Number  of  regions  where  the  source 

extends.  If  this  number  is  0,  an 
external  source  tape  is  expected, 
and  no  further  input  is  required. 

I FLAG  If  I FLAG  =  0,  a  built-in  Cranberg 

fission  spectrum  will  be  used  for 
the  energy  spectrum.  If  IFLAG  >0, 
the  spectrum  is  specified  later  in 
input.  It  will  be  defined  by  IFLAG 
entries . 

ISW  Switch  determining  the  normalization 

of  problem.  If  it  is  0,  fluxes  will 
be  normalized  to  a  single  (unbiased) 
source  particle.  If  it  is  1,  fluxes 
will  be  normalized  to  the  "total 
power"  of  the  source  as  defined  below. 

This  is  followed  by  (NSR)  cards  specifying  the  (NSR) 
source  regions.  Each  of  these  cards  gives: 

ISR  Specification  of  a  geometrical  region 

number . 

P  Power  density  in  that  region. 

ISO  Flag  indicating  angular  distribution: 

ISO  =  0,  isotropic, 

ISO  =  1,  monodirectional .  If  ISO  ^  1 
in  any  of  the  (NSR)  regions,  a  mono- 
directional  source  will  be  assumed  in 
all  the  (NSR)  regions. 

After  this  follow  the  (IFLAG)  cards  specifying  the  energy 
spectrum  assumed  to  apply  to  all  the  source  regions.  This 
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is  a  table  of  E  vs  F(E)  where 


F(E)  =  j  5C£)cLE 


Linear  interpolation  is  assumed  on  E  vs  log  F(E)  .  The 

first  entry  must  be  for  E  ^  Ej^g^,  and  the  last  for  E £ Ecut . 

If  there  is  time  dependence  (NT  >0) ,  the  time  dependence 

of  the  source  must  be  specified.  A  card  gives: 

NOT  Number  of  cards.  This  card  is  followed 

by  NOT  cards  giving 


t  vs  f  St(t)dt. 
'  0 


Linear  interpolation  is  assumed  between 
entries  in  the  table. 

Finally,  if  the  source  is  monodirectional ,  the  projec¬ 
tions  fi  ,  fi  ,  fi  of  the  direction  must  be  given  on  the  last 
x  y  z 

card. 


The  subroutine  SOUCAL  reads  in  all  this  input,  prints 
it  back,  and  pre-computes  tables  to  pick  directly  from  the 
biased  source  distribution.  The  code  first  pre-computes  a 
table  of 


SPEC  (I) 


S(E)dE, 


where  the  Ej ' s  take  the  values  of  Eftigh'  of  all  the  energy 
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The 


boundaries  where  the  energy  weight  changes,  and  Ecut. 
code  then  runs  through  all  the  source  regions,  and,  for  each 
new  energy-importance  set  encountered,  pre-computes  a  table 
of 

SPEC (I, J)  =  I  S (E)dE 
/E1  We(E) 


where  J  runs  from  1  to  the  total  number  of  different  energy- 
importance  sets  encountered  in  the  source  regions;  also 
for  each  new  angular  importance  set  encountered,  a  table 


P  ( I , K)  -  dcu 

WcoM 

where  the  '  s  take  the  values  of  cos  0  at  which  the  angular 
weight  changes,  and  K  runs  from  1  to  the  total  number  of 
different  angular  importance  sets  encountered.  The  differ¬ 
ent  tables  are  renormalized,  and  both  the  modified  and  un¬ 
modified  integrated  source  are  computed  in  each  source 
region.  The  former  quantities  are  proportional  to  the 
probability  with  which  particles  should  be  picked  in  differ¬ 
ent  source  regions.  A  table  SOUR(L)  is  built  up,  which 
gives  the  cumulative  probability  for  a  source  to  be  picked 
in  the  Mth  region  for  M  >  L. 

Subroutine  SOUPIC 

This  is  a  subroutine  which  picks  particles  from  the 
biased  source  distribution. 
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If  an  external  source  tape  is  to  be  used,  groups  of 
35  source  particles  are  read  from  tape  into  a  buffer,  and 
returned  one  by  one  to  the  main  code.  The  quantities  des¬ 
cribing  a  source  particle  are: 

XB  Coordinates  of  the  particle 

IR  Region  number  where  particle  is  born 

WB  Direction  of  the  particle 

T  Time  at  which  particle  is  born 

E  Energy  of  the  particle 

NHIST  History  number  attached  to  the 

source  particle 

F  Statistical  weight  of  the  particle 

(usually  set  equal  to  unity) . 

The  procedure  for  internal  source  generation  is  out¬ 
lined  below. 

A  first  random  number  £  is  compared  to  the  table 
SOUR (L)  (computed  by  SOUCAL) .  The  smallest  L  for  which 
SOUR ( L)  >£  determines  the  region  IR  =  ISR(L)  to  be  picked 
from.  Standard  techniques  are  used  to  pick  coordinates  of 
points  uniformly  distributed  in  a  region. 

The  energy  is  picked  next.  A  stratified  random  number 
(called  CE  in  the  code)  is  obtained  (stratification  is  done 
for  each  statistical  aggregate  of  source  particles) .  A 
biased  random  number  l  is  then  obtained  by  interpolation  in 
the  SPEC  vs  SPEC ( J)  tables  pre-computed  by  SOUCAL.  (The  J 
is  determined  by  the  region  number.)  Finally  the  energy 
is  determined  by  solving  the  equation 
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r 

£  =  )  S(E)dE 

'E 

using  semi-log  interpolation. 


SPEC(I,J) 


The  direction  of  WB  of  the  source  particle  is  deter¬ 
mined  as  follows.  If  the  source  is  isotropic  and  there  is 
angular  importance  sampling,  the  cosine  of  the  angle  between 
the  particular  aiming  angle  and  the  direction  is  chosen  by 
picking  a  random  number,  and  interpolating  between  the 
angular  mesh  supplied  on  input  vs  the  table  P(I,K)  pre¬ 
computed  by  SOUCAL.  (The  K  is  determined  by  the  region 
number.)  A  random  azimuth  is  then  picked,  which  completes 
the  specification  of  the  direction.  In  the  absence  of  angu¬ 
lar  importance  in  the  source  region,  standard  techniques 
are  used.  The  case  of  a  monodirectional  source  also  can  be 
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be  handled,  provided  there  is  no  angular  importance  in  the 
source  region.  Finally,  if  time  dependence  is  to  be  deter¬ 
mined,  a  time  T  is  determined  by  another  random  number  £ 
and  the  solution  of  the  equation 

£  =  f  S  (t)dt. 

'  0 

The  quantities  communicated  to  the  main  code  are  XB ,  IR,  WB , 
T,  E,  NHIST ,  F,  and  Wc  (where  Wc  =  1) ,  and  F  is  the  weight 
in  region  IR  at  energy  E  in  the  direction  WB. 

Subroutine  STAT  (TOTSUM,  SUMSQ,  FLUX,  SD ,  NHIST,  V,  DE) 
Subroutine  STAT  is  called  by  the  EDIT  routine  and 
calculates  FLUX,  SD  which  are  to  be  printed  by  the  EDIT 
program.  The  calculation  flow  is  shown  below. 

H  =  (NHIST/NSTAT) * NSTAT 

where  NHIST  is  total  number  of  histories  processed  by  the 
Monte  Carlo  program  and  NSTAT  is  the  size  of  a  statistical 
aggregate . 

GH  =  FLOATF  (NSTAT) /H 

OMGH  =  l.-GH,  if  OMGH  =  0,  set  it  1 . 0 
DEV  =  (SUMSO-GH*TOTSUM**2) /OMGH 
DEV  =  SQRTF  (DEV) 

at  this  point  DEV  is  the  standard  deviation  of  TOTSUM. 

SD  =  100 . * DEV/TOT SUM,  SD  =  the  "coefficient  of 

variation"  or  percentage  error. 

SD  is  set  to  99.99  if  TOTSUM  =  0.  or  if  SD  >  99.99 
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FLUX  =  TOTSUM/ (DE*H*V) 

where  DE  is  the  AE  of  the  energy  bin,  and  V  is  the  volume 
of  the  region. 

Subroutine  TALLY  (J,  NHIST ,  NCOL,  NDEG ,  NABS,  FKILL ,  BIRTH, 

ESCAP,  NRMAX) 

The  routine  is  used  to  print  a  tally  at  the  end  of 
each  statistical  aggregate  and  to  print  a  tally  by  region 
at  the  end  of  the  problem. 

At  the  end  of  each  aggregate  the  following  items  are 
printed . 

NC  Total  number  of  collisions  thus  far 

ND  Total  number  of  degrades  thus  far 

NA  Total  number  of  absorptions  thus  far 

FK  Total  number  of  kills  thus  far 

BI  Total  number  of  births  thus  far 

ES  Total  number  of  escapes  thus  far 

T  Elapsed  time  thus  far 

JCOUNT  Total  number  of  particles  on  the 
interaction/transmission  tape. 

The  same  items,  except  for  ES  and  T,  are  printed  at 

the  end  of  the  problem  as  a  function  of  region. 

A  flow  chart  of  the  routine  is  given. 
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PRINT  PARTICLE  TALLY  HEADING 
F0R  REGION  TALLY  AT  END  OF  PROBLEM 


NC  = 

NC+  NC0L 

■X) 

ND  = 

ND+NDES 

K  —  -• 

NA  = 

NA+NABS 

(J) 

FK= 

FK-fkjll 

-.1/ 

51= 

31-  21 

IT 

ES  = 

fs  - 1% :  \ 

.  .a NT  I.NC0LTI  ,  KIDEGCTaNABSu, 

■  F  XI LI  (r .  BI  FTH'T)  >E  Z  Z  A  ?T 


I-NRVAX 


CALL  N0  PR  (TV  jGe4irCC 


ALL  WRTI4  HLB.TCCJ'JNT) 


PRINT  NHIST,  NIC ,  ND,NA,FK,BX,  ES,TTCDUNT 


Subroutine  TRALA  (AMPIN,  R) 


Given  an  initial  point  XB  and  a  direction  WB,  the 
routine  will  track  from  XB  in  the  direction  WB.  The  track¬ 
ing  will  continue  until  the  distance  "R"  measured  from  XB 
is  reached. 

During  the  tracking,  the  routine  will  form 
AMDA  =  ZaR^ 

Where  AR^  is  the  geometric  thickness  of  region  "i" 

and  is  the  total  macroscopic  cross  section  of 

region  i.  The  quantity  AMDA  is  the  number  of  mean 

free  paths  along  the  line  segment  from  XB  to  XB+WBR. 

Subroutine  UNPACK  (X,  W,  E,  IR,  T,  IDET,  F,  NHIST ,  WC , 

J12345,'  P) 

Subroutine  UNPACK  will  unpack  the  seven  words  in  the 
array  "P"  and  distribute  the  data  into  the  argument  list. 
The  correspondence  between  P  and  the  individual  items  is 
shown  in  the  discussion  of  subroutine  PACK. 

The  FORTRAN  statements  used  to  unpack  P(l),  P(2),  P(3) 
are  described  below. 


X(l)  =  P(l) 

TEMP  =  P(I) 

TEMP  =  TEMP. AND. 77 77B 

TEMP  =  ITEMP 

W(I)  =  TEMP/1024. -10 
for  1=1,  2,  3 


Store  the  X  part  of  the 
packed  word 

Retrieve  the  integer 
value  of  W 


Float  the  integer  value 

Re-normalize  and  adjust 
the  range  to  -1,  +1. 
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Subroutine  UNPR  ( IEGT ,  IR) 


The  routine  will  unpack  six  integer  variables  stored 
in  two  words  in  the  IEGT  array. 

The  two  packed  words  are  located  as  follows: 

1=2*  ( IR-1) 

11  =  IEGT ( 1+1 )  the  two  packed 

words 

12  =  IEGT ( 1+2 ) 

The  two  packed  words  contain  the  six  integer  variables  in 
the  following  format: 

11 

12 

not  used  15  bits  15  bits  15  bits 
V - - / 

60  bits 


ISC 

NREG 

IRW 

IEW 

I  AM 

IANG . 

Function  VELF  (E) 

This  FORTRAN  function  computes  velocity  of  neutrons  or 
gammas  as  follows: 

VELF  =  1.38333xl06'  /e”  for  NG  =  0  (neutron) 

VELF  =  2 .997928xl010  for  NG  =  1  (gamma) 

The  variable,  NG,  is  found  in  Common. 
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Subroutine  VOLUM 


Input  to  this  routine  is  the  coordinate  points  that 
specify  a  box 


XO 


XV,  XT,  XO,  XA,  then  two  additional  input  numbers,  DOD 
and  DT,  specify  two  delta  distances  over  which  ray  origins 
will  increment. 

The  routine  reads  the  input  parameters  as  specified 
above  and  calculates  the  number  of  rays  to  be  shot,  starting 
between  XV  and  XT  at  increments  of  DT .  As  each  ray  is  shot, 
the  distance  through  each  region  in  the  box  is  added  to  a 
distance  counter  for  that  region.  When  all  rays  between 
XV  and  XT  have  been  treated,  the  code  shifts  each  starting 
point  a  distance  DOD  in  the  direction  from  XV  to  XO  and 
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repeats  the  above  process  until  XO  is  reached  by  the  point 
which  started  as  XV.  After  shifting  the  starting  points, 
rays  are  again  fired  in  the  direction  from  XV  to  XA  and  the 
region  counters  are  incremented. 

When  all  the  rays  are  processed,  each  region  distance 
counter  is  multiplied  by  the  product  DT  x  DOD ,  thus  pro¬ 
ducing  the  volumes  of  the  region  within  the  box. 

The  routine  has  the  capability  of  reading  in  pre¬ 
computed  volumes  and  calculating  a  percent  error.  These 
pre-computed  volumes  should  be  punched  with  the  region 
number  in  Column  10  and  then  the  volume  in  Columns  11-30. 

A  special  card  completes  the  volume  input  (see  page  184) . 

Subroutine  WRT14  (P,  J,  GO,  JCOUNT) 

This  routine  accepts  seven  word  records  stored  in  the 
array  P  and  writes  them  on  tape  14  in  units  of  35  records 
each.  Thus  each  unit  on  tape  has  35  x  7  =  245  words.  The 
seven  word  records  are  either  transmissions  or  interactions. 
The  integer  part  of  P(7)  denotes  the  type  of  record.  The 
program  will  use  the  integer  part  of  P<7)  to  tally  trans¬ 
missions,  absorptions,  and  inelastics. 

A  descriptive  flow  chart  follows. 
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T’H  +o.uc.. 


RETURN) 
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Program  TUNC 


TUNC  is  the  main  control  program  and  controls  the 
entire  calculation  up  to  the  actual  Monte  Carlo.  A  flow 
chart  describing  the  functions  of  TUNC  is  given  on  the 
following  pages. 
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4.3.2 


Description  of  Output 
The  printed  output  will  consist  of  four  parts: 

1.  Cross-Section  Output 

2.  Geometry  Output 

3.  Monte  Carlo  Data 

4.  Answers. 

The  four  parts  will  be  discussed  in  detail  below. 
1.  Cross-Section  Output 

The  cross-section  output  is  dependent  on  the 
input  parameter,  IBAND.  The  resulting  output 
as  a  function  of  IBAND  is: 


2. 


IBAND  =0  A  printout  of  all  TUNC  and  BAND 
input  (see  Section  4.2).  A 
printout  of  cross  sections  used 
by  the  problem.  See  the  dis¬ 
cussion  of  BEDIT  for  actual 
output  formats. 

IBAND  =1  A  printout  of  the  data  on  the 

existing  ODT.  See  the  discussion 
of  BEDIT  for  actual  output  formats. 

IBAND  =2  A  printout  of  TUNC  and  BAND  input 
(see  Section  4.2). 

IBAND  =3  A  printout  of  TUNC  input. 

IBAND  =4  A  printout  of  TUNC  input. 


Geometry  Output 

The  geometry  output  is  also  dependent  on  the 
input  parameter  IBAND.  The  dependence  is  shown 
on  the  following  page. 
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IBAND 


0 


A  complete  printout  of  geometry 
input  and  the  entering  and  leaving 
tables.  See  Section  3.3  for  a  des¬ 
cription  of  formats . 

IBAND  =  1  Same  as  IBAND  =  0 

IBAND  =  2  Same  as  IBAND  =  0 

IBAND  =  3  Same  as  IBAND  =  0 

IBAND  =4  No  geometry  output  will  be  printed. 

3 .  Monte  Carlo  Data 

This  output  section  will  consist  of  a  complete 
printout  of  all  Monte  Carlo  input.  In  addition, 
the  core  storage  requirements  for  cross  sections, 
geometry,  and  other  inputs  will  be  tabulated. 

The  results  of  the  VOLUM  calculation  will  be 
printed.  A  detailed  discussion  of  the  volume 
output  appears  in  the  discussion  of  Subroutine 
VOLUM. 

4 .  Answers 

The  program  will  print  for  each  statistical 
aggregate  the  following  items: 

History  number 
Number  of  collisions 
Number  of  degrades 
Number  of  absorptions 
Number  of  kills 
Number  of  births 
Number  of  escapes 
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The  elapsed  real  time  in  seconds 

The  number  of  transmissions  and  interactions 
recorded  on  tape. 

Note  that  all  of  the  above  items  are  cumulative 
and  are  printed  as  a  single  line  for  each  aggre¬ 
gate  . 

When  all  the  histories  have  been  processed  a  printout 
giving  the  total  number  of  absorption,  inelastics,  and 
transmissions  will  occur. 

The  previously  discussed  tallies  as  a  function  of 
aggregate  will  be  repeated  as  a  function  of  region.  Thus, 
for  each  region  the  number  of  collisions,  degrades,  absorp¬ 
tions,  etc.,  will  be  printed. 

The  dose,  flux,  and  f lux-at-a-point  printouts  will 
occur  next.  The  doses  are  printed  five  regions  per  line  of 
output.  Both  the  flux  and  f lux-at-a-point  edits  are  printed 
five  regions  across  the  page  and  energy  groups  down  the 
page.  For  each  answer  a  percentage  error  is  given.  The 
volume  of  each  flux  region  is  also  printed. 

4.3.3. _ Glossary  of  Important  Variable  Names 

The  following  is  a  brief  outline  of  each  common  block 
in  the  program.  A  detailed  description  of  each  variable 
in  common,  in  the  order  in  which  they  appear  in  the  TUNC 
program,  is  given  on  the  following  pages. 
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The  "blank"  common  block  contains  the  master  storage 
array  and  frequently  used  input  arrays. 

Common  REGPAR  contains  six  parameters  used  in  the  Monte 
Carlo  calculations. 

Common  INPUT  contains  non-subscripted  input  para¬ 
meters  . 

Common  PAREM  contains  position,  direction,  energy  and 
importance  sampling  parameters. 

Common  COMPUT  contains  parameters  computed  from  input. 

Common  CROSS  contains  cross-section  parameters. 

Common  METRY  contains  geometry  dependent  input  and 
computed  parameters . 

Common  FAP  contains  f lux-at-a-point  parameters. 

Common  SOU  contains  source  dependent  parameters. 

Common  PUTAD  contains  data  controlling  the  parameters 
to  be  written  on  the  interaction,  transmission  tape. 


"Blank"  Common 


EOUT(IOO)  An  array  containing  the  output 

energy  bins  for  flux  results. 

The  array  contains  all  bins  for 
all  output  supergroups. 

EWTAB (50)  The  energy  mesh  for  energy  impor¬ 

tance  sampling. 


ANGLE (50)  The  cosine  mesh  for  angular 

importance  sampling. 

TTAB (50)  The  time  mesh  for  time  dependent 

problems . 
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ASTER (30,000) 


The  master  storage  array  containing 
cross  sections,  geometry,  input  and 
flux  data.  A  complete  description 
appears  in  Appendix  D.  The  array 
is  equivalenced  with  array  MASTER. 

The  name  of  the  array  in  BAND  and 
BEDIT  is  XSECT . 

Common  REGPAR 

ISC  The  location,  in  MASTER,  of  the 

flux  scores  for  scanning  region  ISC. 

NREG  The  composition  number  for  region 

IR. 

IRW  The  location,  in  MASTER,  of  the 

energy  weight  for  region  IR. 

IEW  The  location,  in  MASTER,  of  the 

energy  weight  table  for  region  IR. 

1AM  The  location,  in  MASTER,  of  the 

aiming  angle  for  region  IR. 

IANG  The  location  in  MASTER  of  the  angu¬ 

lar  weight  table  for  region  IR. 

Note  that  the  above  six  items  are  all  keyed  to  a  region 
number,  "IR".  The  six  items  are  retrieved  from  the  MASTER 
array  by  a  call  to  UNPR. 

Common  INPUT 

N START  The  number  of  real  time  seconds  of 

running  time  before  terminating  and 
editing . 

NSTOP  Number  of  the  last  history  to  be 

treated . 

NSTAT  Number  of  histories  per  statistical 

group. 

NRMAX  Number  of  region* in  the  geometry. 

NG  Either  0  for  a  neutron  problem  or  1 

for  a  gamma  problem. 
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NT 

NOUT 

NUMSC 

NRWL 

I  REX 

NEWL 

NEW 

NAIML 

NUMANL 

NUMANG 


Number  of  output  time  bins. 

Number  of  output  energy  bins. 

Number  of  flux  scoring  regions. 

Number  of  distinct  region  weights. 

The  escape  region  number. 

Number  of  energy  bins  for  energy 
weighting . 

Number  of  distinct  energy  weight 
sets.  If  NEWL  and  NEW  =  0,  the 
problem  contains  no  energy  weighting. 

Number  of  distinct  aiming  angles. 

Number  of  angular  bins  for  angular 
weighting . 

Number  of  distinct  angular  weight 
sets . 


JRT 

ECUT 


ETHERM 


TCUT 


Not  used. 

Low  energy  cutoff  (ev) .  Tracking  of 
a  particle  is  terminated  if  its 
energy  degrades  below  ECUT . 

Thermal  energy  if  a  thermal  group 
is  required.  ETHERM  must  be  within 
the  energy  limits  of  the  problem. 

Leave  blank. 


FZ 


See  discussion  in  Section  4.1. 


EHIGH  High  energy  cutoff  (ev) .  This 

should  be  less  than  or  equal  to  the 
highest  energy  for  which  cross 
sections  are  available. 

EBL  Lower  bound  of  the  current  supergroup. 

EBH  Upper  bound  of  the  current  supergroup. 
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Common  PAREM 


XB  (3) 
WB  ( 3 ) 

E 

IR 

T 

IDET 

F 

NHIST 

WC 

SP 

WP  (3) 

NUMNOU 

JONUM 

LNCNOL 

LBIRTH 

LREGT 


The  X,  Y,  Z  coordinates  of  the 
current  particle's  position. 

The  direction  cosines  of  the  current 
particle . 

The  current  energy  of  the  particle. 

The  region  number  of  the  particle. 

The  current  time  of  flight  of  the 
particle . 

A  detector  number  for  flux-at-a- 
point . 

An  importance  sampling  parameter. 

The  current  history  number. 

A  weight  parameter. 

The  distance,  measured  from  XB,  to 
the  next  collision. 

The  direction  cosines  of  the  particle 
after  scattering. 

Common  COMPUT 

The  product  of  NUMSC  (the  number  of 
scoring  regions)  and  NOUT  (the  num¬ 
ber  of  output  energy  bins) . 

An  index  used  in  flux  scoring. 

The  location  in  MASTER  of  the  colli¬ 
sion  by  region  table. 

The  location  in  MASTER  of  the  birth 
by  region  table. 

The  location  in  MASTER  of  the  region 
data  table. 


LFKILL  The  location  in  MASTER  of  the  kills 

by  region  table. 
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LESCAP 

The  location  in  MASTER  of  the  escapes 
by  region  table. 

LLAST 

The  location  of  last  word  in  MASTER 
used  by  the  program. 

NDQ 

The  size  of  the  MASTER  array 
(30,000) . 

LNDEG 

The  location  in  MASTER  of  the  degrade 
by  region  table. 

LNABS 

The  location  in  MASTER  of  the  absorp¬ 
tion  by  region  table. 

LSCORE 

The  location  in  MASTER  of  the  flux 
scoring  array. 

LPACK 

Not  used. 

NTOT 

NUMSC  times  (the  number  of  energy 
bins  in  the  largest  supergroup) . 

LGEOM 

The  location  in  MASTER  of  geometry 
data . 

LEGEOM 

The  last  location  in  MASTER  of 
geometry  data. 

KSOUR 

The  location  in  MASTER  of  the  source 
data . 

Common  CROSS 

EPRIM 

The  energy  of  the  particle  after 
scattering . 

ATWT 

The  atomic  weight  of  the  scatterer. 

NCDB 

An  integer  variable  denoting  the 
types  of  collision  (see  table  below) . 

NCDB 

Type  of  Collision 

1 

Hydrogen  scattering 

2 

Isotropic  elastic  scattering 

3 

Anisotropic  elastic  scattering 
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NCDB 

4 

5 

6 

7 

8 

CSTHT 

U 

JEN1 

JEN2 

KPHYS 

NENERG 

NCOUNT 

NBAND 

EBLX 


LBASE 

RIN 

ROUT 

LRI 


Type  of  Collision 

Scattering  in  the  LAB  system 
no  degradation. 

Compton  scattering  for  gammas 

Absorption 

Inelastic  continuum  scattering 

Inelastic  discrete  scattering 

The  cosine  of  the  angle  of  scatter. 

The  macroscopic  total  cross  section. 

The  location  in  MASTER  of  the  first 
energy  of  the  mesh. 

The  location  in  MASTER  of  the  last 
energy  of  the  mesh. 

The  number  of  physical  compositions. 

The  number  of  energies  in  the  cur¬ 
rent  supergroup. 

The  number  of  data  words  in  the  cur¬ 
rent  supergroup. 

The  number  of  cross-section  super¬ 
groups  . 

The  lower  energy  of  the  cross-section 
supergroup . 

Common  METRY 

The  location  in  MASTER  of  the 
geometry  data  (same  as  LGEOM) . 

The  distance  from  a  point  XB ,  on  the 
ray  X?  +  WB-S,  to  the  first  contact 
with  a  body. 

The  distance  on  the  ray,  from  XB ,  to 
the  last  contact  with  the  body. 

The  entering  surface  number. 
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LRO 

The  leaving  surface  number. 

PINF 

The  machine  infinity  (10+~^). 

IERR 

An  error  counter  for  input  errors 
or  "Gl"  errors. 

DIST 

The  distance  to  the  current  body 
measured  from  XB . 

NRPP 

The  number  of  rectangular  parallel¬ 
epipeds  (input) . 

NTRIP 

The  number  of  triplets  (input)  . 

NSCAL 

The  number  of  scalars  (input). 

NBODY 

The  number  of  bodies  (input) . 

NNNNN 

Same  as  NRMAX  in  Common  INPUT. 

LTRIP 

The  location  in  MASTER  of  the 
triplet  data. 

LSCAL 

The  location  in  MASTER  of  the 
scalar  data. 

LREGD 

The  location  in  MASTER  of  the  region 
description  data. 

LDATA 

The  location  in  MASTER  of  the 
floating  point  data. 

LRIN 

The  location  in  MASTER  of  the  RIN 
for  each  body. 

LROT 

The  location  in  MASTER  of  the  ROUT 
for  each  body. 

LIO 

The  location  in  MASTER  of  the  sur¬ 
face  numbers  for  each  body. 

LOCDA 

The  location  in  MASTER  of  the  data 
for  a  particular  body. 

115 

=  2^5.  used  in  unpacking  data  from 
the  MASTER  array. 
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130 

LBODY 

NASC 

KLOOP 

XAD (25) 
YAD ( 25 ) 
ZAD ( 25 ) 

ID 

NDFAP 

NDET 

LSCFAP 

LPAFAP 

J12345 

I RT (10) 

IWA 

IWI 

I  WE 


=  230.  Used  in  unpacking  data  from 
the  MASTER  array. 

The  location  in  MASTER  of  the  body 
data . 

The  body  number  of  the  body  being 
examined  by  Gl. 

A  counter  used  by  Gl . 

Common  FAP 

The  array  of  X-coordinates  for  the 
detectors . 

The  array  of  Y-coordinates  for  the 
detectors . 

The  array  of  Z-coordinates  for  the 
detectors . 

The  number  of  the  detector  being 
processed . 

The  number  of  detectors  for  flux- 
at-a-point . 

The  total  number  of  detectors. 

The  location  in  MASTER  of  the 
scoring  array  for  f lux-at-a-point . 

Not  used. 

A  particle  type  flag  (see  the  dis¬ 
cussion  of  PICK) . 

Common  PUTAD 


Transmission  region  numbers.  Only 
the  first  three  are  used. 

Absorption  recording  flag.  Nonzero 
for  recording. 

Inelastic  recording  flag.  Nonzero 
for  recording. 

Elastic  recording  flag.  Nonzero  for 
recording. 
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Degradation  recording  flag.  Nonzero 
for  recording. 

Multiplying  factor  for  transmission 
recording . 

Not  used. 

4.4  PROGRAM  IMPLEMENTATION 
4.4.1  Operation  Instructions 

The  following  discussion  describes  the  operating  pro¬ 
cedure  for  the  C DC-6600  using  the  Chippewa*  operating 
system . 

The  deck  configuration  consists  of  a  control  card  deck 
followed  by  a  data  deck.  The  control  card  deck  is  shown 
below.  Note  that  the  card  data  is  to  be  punched  starting 
in  card  column  1.  A  complete  discussion  of  control  cards 
appears  in  the  Chippewa  systems  manual. 


IWD 

I  WO 

OTHER (5) 


*  Control  Data  6000  Series  Computer  Systems,  Chippewa 
Operating  System  Reference  Manual,  Publication  Number 
60134400,  8100  34th  Avenue,  South  Minneapolis, 
Minnesota  55440 
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Card 


Comments 


ID  card  See  the  Chippewa  systems  manual 

for  a  description  of  this  card. 

REQUEST  TXXX.  XXX  is  a  tape  number  supplied  by 

the  computer  center.  This  tape 
contains  the  SAM-C  program  in 
binary  format. 

REWIND  (TXXX)  Rewind  the  program  tape. 

COPYBF (TXXX , TUNC)  Read  the  two  sections  (TUNC,  MONTE) 

COPYBF (TXXX ,  that  comprise  the  SAM-C  program 

MONTE)  into  memory. 

UNLOAD (TXX)  Return  the  program  tape,  it  is  no 

longer  needed. 

REQUEST  TYYY ,  YYY  is  the  tape  number  of  the 

TAPE  11.  element  data  tape  to  be  used. 

REWIND (TAPE  11) 

REQUEST  TZZZ,  ZZZ  is  the  tape  number  of  the 

TAPE  15.  source  tape.  Omit  these  cards  if 

REWIND  (TAPE  15)  no  source  tape  is  used. 

REQUEST  TVW ,  VW  is  the  interaction/transmission 

TAPE  14.  tape  if  required. 

REWIND  (TAPE  14) 

TUNC.  Execute  the  TUNC  program  which 

reads  and  processes  all  input. 

UNLOAD  (TAPE  11)  The  element  data  tape  is  no  longer 

needed . 

MONTE.  Execute  the  Monte-Carlo  and  edit 

portions  of  SAM-C. 

UNLOAD  (TAPE  14)  Release  the  remaining  tapes. 

UNLOAD  (TAPE  15) 

EXIT.  Terminate  the  problem. 

Note  that  the  edit  tape  (TAPE  16) ,  the  supergroup 
storage  tapes  (TAPE  9,  TAPE  17)  and  the  organized  data  tape 
(TAPE  10)  were  not  mentioned  explicitly  in  the  above  control 
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cards.  These  tapes  are  usually  not  required  for  subsequent 
problems  and  are  assigned  to  disk  storage.  The  operating 
system  will  automatically  assign  a  disk  storage  area  to  any 
tape  not  mentioned  in  the  control  cards. 

The  following  figure  (Fig.  4.1)  shows  the  complete 
deck  configuration  for  a  computer  run.  Note  that  the  "EOR" 
card  is  a  system  end  of  record  card  and  that  "EOF"  is  a 
system  end  of  file  card. 


4.1  -  Deck  Configuration  for  SAM  C 
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4.4.2 


Tape  Utilization 


The  following  describes  the  function  of  each  tape  used 
in  the  program.  Tape  numbers  refer  to  FORTRAN  logical  num¬ 
bers.  All  tapes  are  used  in  the  binary  mode  except  for 
tape  11,  which  is  BCD  mode  and  contains  80  column  card 
images . 

Tape  9 

A  temporary  storage  tape  used  by  the  BAND  program. 

The  tape  is  also  used  for  temporary  storage  of  particle 
latents  in  the  PICK  routine. 

Tape  10 

The  organized  data  tape  (ODT) .  The  tape  contains 
cross-section  data  for  a  given  problem.  The  tape  may  also 
hold  geometry  data  if  requested  by  an  input  option. 

Tape  11 

The  element  data  tape  (EDT) .  The  tape  contains  a 
library  of  available  elements.  Subroutine  BAND  uses  this 
tape  to  get  the  data  for  a  given  problem.  BAND  is  the  only 
routine  using  this  tape.  The  organization  of  the  EDT  is 
given  in  Appendix  B. 

Tape  14 

The  interaction/transmission  tape.  All  interactions 
and  transmissions  are  written  on  this  tape  for  use  in  sub¬ 
sequent  problems.  A  discussion  of  format  is  included  in 
the  section  on  Subroutine  WRT14 . 
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Tape  15 


An  external  source  tape.  The  tape  is  created  by  the 
GASP  program  using  tape  14 .  The  tape  may  also  be  the  trans¬ 
mission  part  of  tape  14. 

Tape  16 

The  statistical  aggregate  tape.  The  MONTE  routine 
uses  this  tape  to  record  each  completed  aggregate.  The 
edit  routines  then  process  the  tape  to  obtain  the  final 
flux,  dose  results. 

Tape  17 

A  temporary  storage  tape  for  latents.  The  tape  is 
used  by  the  PICK  routine. 

4.4.3 _ Error  Messages 

Three  types  of  error  indications  are  given  by  the 
SAM-C  program.  Type  1  errors  give  an  error  message  and 
cause  the  program  to  terminate.  Type  2  errors  give  an 
error  message,  but  do  not  terminate  the  calculation.  Type 
3  errors  terminate  the  calculation,  but  give  no  error  mes¬ 
sage.  The  possible  error  stops  and  messages  are  discussed 
below. 

Type  1  Errors 

1 .  SEEK  ERROR 

The  error  occurs  in  SEEK  and  is  caused  by  an 
argument  out  of  range  of  the  vector  being 
searched.  The  most  probable  causes  are  an 
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input  error  in  the  output  energy  bins  or  the 
energy  or  angular  weight  bins . 

2.  OUT  OF  RANGE  ON  EBAND 

The  error  occurs  in  BAND  and  is  caused  by  the 
input  cross-section  energy  band  mesh  being 
outside  the  range  of  the  energies  on  the  EDT. 

The  most  probable  causes  are  an  input  error 
or  using  the  wrong  EDT. 

3.  NO  MORE  ELEMENTS  ERROR  IN  BAND 

The  error  occurs  in  BAND  and  is  given  when  an 
isotope  identifier  in  the  BAND  input  cannot  be 
found  on  the  EDT.  The  most  probable  causes  are 
an  input  error  or  using  the  wrong  EDT. 

4.  ***  ERROR  -  BOTH  FIRST  AND  LAST  BIN  BOUNDARIES 
MUST  BE  FLAGGED  WITH  NEGATIVE  SIGNS 

5.  ***  ERROR  -  EHIGH  MUST  BE  WITHIN  ENERGY  BINS 

6.  ****  ERROR  -  ECUT  MUST  BE  WITHIN  ENERGY  BINS 

7.  ****  ERROR  -  ETHRM  MUST  BE  WITHIN  ENERGY  BINS 

8.  THE  NUMBER  OF  ENERGY  BINS  IS  TOO  BIG  THE  MAX  IS 
The  error  indicates  too  many  energy  output  bins 
to  fit  in  the  machine.  The  input  must  be  modi¬ 
fied.  A  suggestion  is  to  allow  another  output 
supergroup . 

9.  ERROR  IN  NUMSC 

The  error  occurs  when  a  scoring  region,  as 
supplied  by  the  region  parameter  input,  is  bigger 
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than  the  input  value  of  NUMSC.  The  input  should 
be  checked. 

10.  NO  ROOM  FOR  DATA 

The  error  indicates  that  the  total  room  occupied 
by  the  input  is  greater  than  the  allowable  maxi¬ 
mum.  The  input  must  be  modified. 

Note  that  errors  (4)  through  (10)  all  occur  in  INPUTD. 
These  errors  will  allow  the  remainder  of  the  input  to  be 
processed  but  the  program  will  not  perform  the  Monte  Carlo 
calculation . 

11.  ****  ERROR  -  SPECTRUM  NOT  DEFINED  BETWEEN  EHIGH 
AND  ECUT 

The  error  occurs  in  SOUCAL  and  indicates  that  the 
energy  spectrum  violated  one  of  the  following 
constraints : 

ECUT  £  ET(IFLAG) 

EHIGH  £  ET ( 1 ) 

where  ET  is  the  input  energy  spectrum,  and  IFLAG 
is  the  number  of  entries  in  the  spectrum  table. 

12.  CANNOT  HAVE  ANG .  IMP.  FOR  ANISTROPIC  SOURCE 

The  error  occurs  in  SOUCAL  and  indicates  that  the 
special  source  direction  option  was  used  in  a 
region  containing  angular  importance.  This  condi¬ 
tion  is  not  allowed. 

13.  ERROR  IN  NOUT 

The  error  indicates  that  a  source  energy  was 
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calculated  by  SOUPIC  and  is  outside  the  range 
of  the  output  energy  mesh.  Check  the  input. 

14.  BAD  IRPRIM  IN  CARLO 

An  IRPRIM  of  zero  was  calculated  in  the  G1  rou¬ 
tine.  The  geometry  input  and  the  source  position 
data  should  be  checked. 

15.  SI  OUTSIDE  BOUNDS 

The  error  indicates  that  SI,  the  distance  to  the 
next  boundary,  as  calculated  by  Gl ,  is  either 
zero  or  greater  than  lO^--*-.  The  geometry  input 
should  be  checked.  A  more  serious  cause  is  an 
error  in  compilation. 

16.  ERROR  IN  SP  IN  CARLO 

"SO"  the  distance  to  the  next  collision  is  greater 
than  SI,  the  total  distance  through  the  region. 

The  FORTRAN  statements  in  CARLO  should  be  checked 
for  a  compile  error. 

17.  ERROR  IN  NREG 

A  composition  number  of  zero  or  greater  than  the 
KPHYS ,  the  number  of  compositions ,  was  encountered. 
Check  the  region  input. 

18.  ERROR  IN  IRPRIM 

A  region  number,  IRPRIM,  was  greater  than  the 
number  of  regions.  Check  the  region  input. 


255 


19. 


ERROR  IN  ISC 


A  scoring  region  number,  ISC,  was  greater  than 
the  number  of  scoring  regions.  Check  the  region 
input . 

20.  ERROR  IN  NCDB  IN  CARLO 

An  illegal  interaction  digit,  NCDB,  has  been 
generated  by  DR,  the  interaction  routine.  The 
cross-section  data  as  edited  by  BEDIT  should  be 
checked . 

4,4.4 _ Sense  Switch  Options 

The  following  describes  the  Sense  Switch  utilization 
in  the  SAM-C  program. 

Sense  Switch  2 

Terminate  the  problem  and  edit  the  completed  aggregates. 

Sense  Switch  1 

Debug  printout  for  the  CARLO,  DR,  FAP  routines. 

Sense  Switch  4 

Debug  printout  for  the  geometry  dependent  routines. 

Note  that  physical  sense  switches  are  not  available 
on  the  CDC-6600.  The  sense  switches  are  designated  by  means 
of  control  cards  and  cannot  be  changed  during  execution. 
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APPENDIX  A 

DISCUSSION  OF  IMPORTANCE  SAMPLING 

It  is  fairly  well  known ^  by  now  that  Monte  Carlo 
calculations  can  be  carried  out  so  that  a  single  linear 
functional  (e.g.,  dose,  Fe  activation)  of  the  radiation 
field  may  be  calculated  with  zero  variance.  To  do  this 
requires  pre-knowledge  of  an  "importance  function"  which 
gives  for  any  particle  its  expected  contribution  to  that 
single  functional.  This  importance  function  is  used  to 
bias  histories  of  particles  so  as  to  direct  them  toward 
those  positions,  energies,  and  directions  at  which  the 
chance  of  contributing  to  an  answer  is  large.  In  addition, 
to  get  strictly  zero  variance  it  is  necessary  to  compute 
an  answer  (to  "score")  only  when  an  importance  modified 
history  is  terminated. 

To  be  more  explicit,  let  x,  E,  fi  denote  the  position, 
energy,  and  direction  of  a  particle  and  let  J(x,  E,ft)  be 
the  expected  total  answer  eventually  given  by  that  parti¬ 
cle.  Then  if  K(x'f  E',  fi'  -*■  x,  E,  5})  is  the  density  of 


257 


particles  coining  out  of  collisions  at  x,  E,  £2  given  that 

one  came  out  of  collision  at  x',  E',  £2'  define  the  altered 

kernel  K(x',  E'f  £2'  ->  x,  E,  £2)  =  J(x,  E,  fl)  „ 

J(x'  ,  E'  ~  £2’) 

K(x',  E',  £2 '  -*■  x,  E,  £2).  This  kernel  is  to  be  used  in 
generating  histories  if  zero  variance  is  to  be  ohtained. 
Another  requirement  is  that  the  source  density  S(x,  E,  £2) 
be  replaced  by 

S(x,E,£2)  =  J(x,E,R)  S  ( x  ,  E  ,  £2 )  /  J  ( X  '  ,  E  '  ,  £2  1  )  S  (x  '  rE  '  ,  £2)  dx  'dE  '  Dft 1 
in  selecting  starting  coordinates  for  histories. 

In  practice,  the  conditions  for  obtaining  zero  variance 
are  never  achieved  for  any  practical  problem.  It  is  useful 
to  note  the  reasons. 

1.  The  exact  importance  function  is  never  known. 

2.  Scoring  is  not  carried  out  in  the  manner 
reguired  for  zero  variance. 

3.  Approximate  importance  functions  cannot  be 
specified  in  enough  detail. 

4.  General  purpose  codes  do  not  carry  out  the 
history  sampling  using  the  altered  kernel  K, 
but  some  alternative  (unbiased)  form  such 

as  splitting  at  boundaries.  This  always 
increases  the  variance. 

The  first  point  is  a  difficulty  in  principle.  In 
practical  problems,  it  has  been  found  that  approximate 
forms  for  J  can  reduce  the  variance  in  difficult  problems 
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to  the  point  where  modern  computing  machines  can  achieve 

satisfactory  results.  Several  methods  have  been  used  to 

( 2 ) 

establish  the  function  J.  Kalos  used  a  multicollision 
approach  (essentially  consideration  of  the  Neumann  series 
of  the  adjoint  problem)  and  was  able  to  calculate  very  deep 
penetration.  At  the  other  extreme,  Cain(3)  has  recently 
used  Sn  codes  to  find  numerical  values  of  J.  Unfortunately 
for  two-or  three-dimensional  problems  this  requires  com¬ 
putations  as  extensive,  or  more  so  than  the  Monte  Carlo 
calculations  themselves.  Finally,  it  is  possible  to  use 
existing  results  for  similar  problems  (e.g.,  moments  method 
results  for  gamma  rays)  as  one  does  in  obtaining  rough 
engineering  approximations  to  shielding  results  themselves. 
This  appears  to  be  the  most  practical  and  will  be  illus¬ 
trated  later. 

It  has  long  been  suspected that  the  essential  part 
of  the  variance  reduction  is  the  use  of  a  properly  biased 
altered  kernel  and  that  the  particular  scoring  scheme  is 

(4) 

less  important.  This  has,  in  effect,  been  shown  recently.' 

In  many  codes  the  importance  sampling  depends  only 
upon  space  or  occasionally  on  energy.  This,  coupled  with 
the  fact  that  extra  variance  arises  in  sampling  the  altered 
kernel,  may  well  have  the  effect  that  the  optimum  parameters 
cannot  be  easily  deduced  from  even  a  reasonable  guess  for 
J.  In  particular,  the  failure  to  alter  the  source  distri¬ 
bution  consistent  with  the  history  biasing  requires  special 
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treatment . 


The  properties  of  SAM-C  are  such  that  the  optimum  use 
of  the  code  should  result  by  using  a  set  of  weights  inversely 
proportional  to  J(x,  E,  fi) .  These  weights  can  depend  upon 
position,  energy,  and  direction.  The  source  spectrum  is 
altered  automatically  according  to  the  weights.  Finally, 
the  biased  histories,  particularly  the  flight  of  a  particle, 
are  carried  out  so  as  to  provide  little  additional  variance. 

Thus  establishing  efficient  sampling  reduces  to  cal¬ 
culating  a  reasonable  approximation  to  J.  Before  giving  an 
example,  certain  general  remarks  can  be  made. 

First,  because  the  importance  function  is  specified 
through  weights  that  are  constant  in  spatial  regions,  the 
requirements  of  biasing  reflect  upon  the  geometry  used  to 
describe  the  problem.  Thus  an  effort  should  be  made  to 
provide  enough  regions  so  that  in  significant  regions  of 
space,  and  for  the  part  of  the  spectrum  responsible  for 
penetration  to  the  detector,  the  variation  in  average  im¬ 
portance  from  one  region  to  the  next  is  no  more  than  (very 
roughly)  a  factor  of  four.  This  requirement  can  be  relaxed 
for  regions  far  from  source  and  detector  or  for  radiation 
too  weakly  penetrating  or  too  weak  to  enter  into  the  further 
penetration . 

The  use  of  appropriate  symmetries  simplifies  the  im¬ 
portance  sampling.  Although,  in  principle,  a  result  can  be 
obtained  as  easily  in  a  small  region  as  in  a  shell  in  a 
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spherically  symmetric  problem,  in  practice  extra  care  must 
be  given  to  focus  the  radiation  appropriately  toward  a  small 
detector.  Also  the  importance  function  will  contain  geo¬ 
metric  (e.g.,  r-2)  factors.  For  a  shell  surrounding  a 
spherical  source,  only  the  exponential  attenuation  with 
position  is  needed. 

When  a  reasonable  set  of  weights  has  been  given  for  a 
set  of  detectors  in  a  given  geometry,  it  can  be  used  for  a 
variety  of  sources.  Thus  a  good  set  of  importance  weights 
for  gamma  rays  in  a  given  situation  can  be  used  for  mono- 
energetic  gammas,  for  a  prompt  fission  gamma  source,  or  for 
spatially  and  energy-distributed  gammas  arising  from  neu¬ 
tron  interactions.  Naturally,  if  space  or  energy  regions 
previously  thought  unimportant  are  no  longer  so,  extensions 
must  be  made. 

In  some  problems  it  is  necessary  (or  thought  necessary) 
to  obtain  several  different  answers  in  a  single  computer 
run.  If  these  answers  depend  essentially  upon  the  same  or 
very  similar  histories,  (as  for  example,  the  biological  dose 
at  two  detectors  separated  by  less  than  a  relaxation  length 
for  the  dominant  radiation) ,  then  a  biasing  scheme  for  one 
(or  for  a  detector  at  a  mean  position)  does  reasonably  well 
for  the  other.  When  rather  different  histories  are  required 
(as  for  widely  separated  detectors  or  for  neutron  dose  con¬ 
trasted  with  sources  of  secondary  gamma  radiation)  then  it 
may  well  be  true  that  separate  runs  with  separate  importance 
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weights  will  be  computationally  most  efficient.  In  inter¬ 
mediate  cases  where  it  is  suspected  that  the  computational 
gain  from  running  a  single  problem  is  important,  the 
following  prescriptions  are  useful. 

1.  Take  weights  proportional  to  flux  over  the 
important  range  of  position  and  energy.  This 
has  the  effect  of  giving  generally  good  sta¬ 
tistics  for  flux  over  that  range  (though  likely 
at  the  expense  of  computing  time).  The  numerical 
values  of  flux  may  be  taken  from  related  problems 
or  from  a  preliminary  run. 

2.  Take  the  spatial  dependence  of  weight  propor¬ 
tional  to  the  expected  dose  over  regions  of 
adjacent  detectors.  Outside  regions  of  detectors 
compute  relative  importance  for  nearest  detector. 

3.  Take  a  linear  combination  of  the  importance  func¬ 
tion  for  single  detectors,  the  coefficient  being 
inversely  proportional  to  the  estimated  result 

at  that  detector.  The  weight  is,  of  course, 
inversely  proportional  to  the  compositive  impor¬ 
tance  . 

Note  that  in  SAM-C  the  magnitude  of  the  weight  is 
irrelevant. 

Finally  we  give  the  following  warning.  It  is  often 
tempting  to  try  a  rather  sharp  biasing,  particularly  in 
direction.  It  should  always  be  kept  in  mind  that  the  im- 
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portance  function  is  the  expected  answer  after  all  future 
collisions,  not  just  a  single  one.  Thus  a  particle  pointed 
within  some  neighborhood  of  a  detector  (e.g.,  within  a  cone 
that  passes  as  close  as  roughly  a  mean  free  path  for  scat¬ 
tered  radiation)  is  likely  to  be  nearly  as  important  as  a 
ray  that  passes  directly  through.  Neglect  of  this  leads  to 
biasing  in  which  the  most  probable  result,  except  in  very 
long  sampling,  omits  this  scattered  radiation.  In  somewhat 
the  same  way,  radiation  directed  away  from  a  detector  may, 
in  consequence  of  multiple  scattering,  be  nearly  as  impor¬ 
tant  as  radiation  directed  toward  a  detector.  When  diffu¬ 
sion  dominates,  there  is  little  direction  effect. 

The  last  section  will  describe  the  procedure  used  to 
set  up  weights  for  gamma-ray  transport  in  the  atmosphere 
above  a  ground  interface. 

It  was  required  to  calculate  free  air  gamma-ray  doses 
in  two  sets  of  detectors.  The  first  set  consisted  of  de¬ 
tectors  centered  at  250,  500,  750  meters  and  the  second  at 
1000,  1250,  1500  meters.  Each  set  was  considered  a  separate 
problem.  Each  'detector'  was  in  fact  a  ring  of  air,  7 
meters  high,  and  whose  inner  and  outer  radii  differed  by 
20  meters.  The  rings  abutted  the  ground. 

The  air  was  subdivided  into  large  concentric  rinqs , 

600  meters  high,  centered  on  the  source.  The  increment  in 
radius  was  taken  as  125  meters;  this  is  adequately  small 
compared  with  the  average  relaxation  length  of  about  600 
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meters.  Each  detector  ring  was  contained  in  one  of  the 
larger  rings. 

The  energy  grouping  was  taken  as  follows.  Energies 
above  4  Mev  were  lumped  together.  Other  divisions  were  taken 
at  2,  1,  0.5,  and  0.2  Mev.  Except  below  the  last,  the  vari¬ 
ation  in  cross-section  in  a  group  is  less  than  about  30%  so 
that  the  importance  is  reasonably  taken  to  be  constant  in 
each  group.  The  properties  of  gammas  were  evaluated  at  the 
lower  end  except  for  the  lowest,  for  which  0.1  Mev  was  used. 

The  procedure  for  establishing  weights  was  the  following. 
Assume  we  are  dealing  with  the  second  group  of  detectors. 

The  effectiveness  of  a  gamma  was  taken  (for  calculating  im¬ 
portance  only)  to  be  proportional  to  energy.  At  1000  meters 
therefore,  the  weight  was  set  equal  to  the  reciprocal  of 
the  group  energy  in  Mev.  From  1000  to  1500  meters  the 
weight  was  assumed  to  decrease  exponentially  (i.e.,  the 
importance  increased  exponentially)  with  a  relaxation  length 
of  550  meters,  taken  from  an  earlier  calculation  as  char¬ 
acteristic  of  dose.  The  same  ratios  in  weights  were  used 
in  each  energy  range.  The  importance  at  500  and  at  1000  were 
evaluated  as  (E  B (E) r) e~w r) using  r  =  500  and  1000 
meters,  respectively.  These  are,  of  course,  the  distances 
to  the  first  detector.  Buildup  factors  B(E)  were  taken  for 
point  isotropic  sources  from  Goldstein's  book  1  except  at 
the  lowest  energies  where  very  rough  extrapolations  were 
made.  At  points  500  meters  and  1000  meters  beyond  the  last 
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detector,  the  weights  were  made  to  rise  in  the  same  ratios. 
These  points  were  plotted  on  semilog  paper  and  curves  drawn 
joining  them.  This  is  shown  in  Fig.  A-l.  Rough  average 
weights  are  then  taken  directly  from  the  graph. 

It  is  easy  to  see  from  this  prescription  that,  for 
detectors  in  the  range  250  to  750  meters,  one  may  use  the 
same  curve  by  shifting  the  entire  curve  left  by  750  meters. 
This  is  rather  generally  applicable. 

No  angular  weights  were  used,  primarily  because  the 
regions  are  so  large  that  the  assumption  of  constant  pre¬ 
ferred  direction  is  not  applicable.  For  this  reason  (among 
others)  it  would  have  been  preferable  to  subdivide  the 
vertical  section  by  several  parallel  planes.  Since  satis¬ 
factory  answers  were  obtained  in  short  computina  times  we 
did  not  go  on  in  this  direction  for  gammas,  although  sig¬ 
nificant  improvements  were  found  in  using  more  vertical 
divisions  in  neutron  problems. 

The  weights  in  ground  were  always  taken  to  be  four 
times  the  corresponding  weights  in  the  air  above.  Gammas 
histories  were  terminated  above  600  meters  or  beyond  1900 
meters  from  the  source. 
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GAMMA  RAY  WEIGHT 


DISTANCE  FROM  SOURCE  (.METERS) 


Fig.  A-l  -  Gamma  Ray  Weights  vs  Distance  from  Source 
for  Detectors  in  1000  to  1500  Meter  Range 
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APPENDIX  B 


FORMAT  OF  THE  ELEMENT  DATA  TAPE  (EDT) 


A  description  of  the  format  of  the  EDT  follows.  Since 
the  EDT  is  made  up  of  card  images,  the  description  is  in 
terms  of  card  images. 


Item  No.  of 

No.  Entries  Card  Description  Format 

1  1  NENERG  110 

NENERG  is  the  number  of  energies 
in  the  energy  table. 


2  NENERG  ETABLE ( 1 ) ,  ETABLE ( 2 ) ,  ETABLE ( 3 ) ,  5E14.5 

ETABLE ( 4 ) ,  ETABLE ( 5 ) ,  ... 

ETABLE (NENERG) . 

ETABLE  is  the  energy  mesh  for  all 
elements.  ETABLE (1)  is  the  low¬ 
est  energy  and  ETABLE (NENERG)  is 
the  highest  energy. 


3  3 


4  5 


AWT,  IAWT,  J  E16.8,  216 

AWT  is  the  floating  point  atomic 
weight . 

IAWT  is  the  fixed  point  identi¬ 
fier.  J  is  an  end  of  data  flag. 

J  ^  0  means  this  card  is  the 
last  card  of  the  EDT. 

OF,  NOW,  NFI ,  ISI,  IPIN  E16.8,  416 

OF  jt  0  means  this  is  last 
card  of  element. 
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Item  No.  of 

No.  Entries  Card  Description 


4  5 

con ' d. 


5  NOW 


6  5 

7  NOW 


8  5 

9  NOW 


NOW  is  the  number  of  words  in 
the  next  group  of  data.  NFI  is 
a  file  number  used  for  identi¬ 
fication  only.  IS1  ^  0  means 
the  next  group  of  data  is  the 
scatter  index.  IPIN  ^  0  means 
this  element  has  no  inelastic 
scattering . 

SIGMA ( 1)  ,  SIGMA (2)  ,  SIGMA (3), 
SIGMA ( 4 ) ,  etc. 

SIGMA  is  the  microscopic  total 
cross  section.  Note  that  NOW 
must  equal  NENERG  and  that  OF, 
ISI,  IPIN  must  all  be  zero. 

Repeat  item  4 . 

PSCAT(l),  PSCAT ( 2 )  ,  PSCAT(3), 
PSCAT ( 4 ) ,  PSCAT (5) ,  . . . , 

PSCAT (NENERG) . 

PSCAT  is  the  probability  of 
elastic  scattering.  PSCAT (1) 
corresponds  to  ETAELE(l)  and 
PSCAT (NENERG)  corresponds  to 
ETABLE (NENERG) . 

Repeat  item  4 . 

PABS(l),  PABS ( 2 ) ,  PABS ( 3 ) , 

PABS (4)  ,  PABS (5)  ,  .  .  .  , 

PABS (NENERG) . 


10  5  OF,  NOW,  NFI,  ISI  IPIN 

ISI  must  equal  1  because 
the  next  data  group  is  the 
scatter  index.  If  this 
element  has  no  inelastic 
scattering,  then  IPIN  must 
equal  1. 

11  NENERG  IP,  ID,  IT,  IA 

There  are  NENERG  cards  in 
this  data  group.  Each  card 
has  the  quantities  IP,  ID, 
IT,  IA  defined  as  follows: 


Format 


5E14 .5 


E16.8,  416 
5E14.5 


E16.8,  416 
5E14 .5 

E16.8,  416 


4110 
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Item  No.  of 

No .  Entries  Card  Description  Format 

11  NENERG  IP  =  1  for  inelastic  discrete  4110 

con'd.  scattering 

=  2  for  inelastic  continuum 

scattering 

ID  =  the  location  of  an  ENN 
or  PLEV  table  relative  to  the 
first  word  of  the  SIGMA  table 
IT  =  1  for  isotropic  scattering 
in  center  of  mass 

=  2  for  scattering  in  hydrogen 

=  3  for  anisotropic  scattering 

in  center  of  mass 

=  4  isotropic  scattering  in 
the  lab  system 

I A  =  location  of  CHI  Table  if 
IT  =  3. 

12  5  Repeat  item  4  with  NOW  =  11.  E16.8,  416 

13  11  CHI(l),  CHI ( 2 ) ,  CHI ( 3 ) ,  CHI(4), 

CHI (5) ,  etc. 

CHI  is  a  table  of  11  entries. 

CHI (1)  =  1.0,  CHI (11)  =  0. 

Items  12,  13  are  repeated  for 
each  energy  at  which  "it"  of 
item  11  is  3. 

14  5  Repeat  item  4  with  NOW  =  11.  E16 . 8 ,  416 

15  11  ENN { 1 ) ,  ENN ( 2 ) ,  ENN ( 3 ) ,  ENN ( 4 ) ,  5E14.5 

ENN (5) ,  etc. 

The  ENN  table  is  used  to  deter¬ 
mine  the  energy  after  scattering 
for  an  inelastic  continuum 
interaction.  Items  14  and  15 
are  repeated  for  each  energy  at 
which  "IP"  of  item  11  is  2.  If 
the  element  has  no  continuum 
scattering  items,  14  and  15  are 
omitted . 

16  5  Repeat  item  4  with  NOW  =  number  E16.8,  416 

of  excitation  levels  for  dis¬ 
crete  scattering. 
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Item  No.  of  Card  Description 

No.  Entries 


17  NOW 


18  5 

19  NOW 


20  5 


21  3 


ELEV(l) ,  ELEV ( 2 ) ,  ELEV(3) 

ELEV ( 4 ) ,  ELEV ( 5 ) ,  . . . , 

ELEV (NOW) . 

The  ELEV  table  is  a  list  of 
possible  excitation  levels; 
each  entry  corresponds  to  a 
probability  in  a  PLEV  table. 

Repeat  item  16. 

PLEV ( 1 )  ,  PLEV ( 2 ) ,  PLEV ( 3)  , 

PLEV (4) ,  PLEV (5) ,  . . . , 

PLEV (NOW) . 

The  PLEV  tables  are  tables  of 
probabilities  of  scattering 
from  the  current  energy  to 
the  excitation  levels.  Items 
18  and  19  are  repeated  for 
each  energy  at  which  inelastic 
discrete  scattering  occurs 
(IP  =  1)  - 

OF,  NOW,  ISI,  IPIN 
OF  =  1.0.  NOW,  ISI,  IPIN 
=  0.  Item  20  is  the  last 
card  of  an  element. 

AWT ,  IATWT ,  J 

If  there  are  no  more  elements 
AWT,  IATWT  =0.  J  =  1.  If 
there  are  more  elements  repeat 
from  item  3 . 
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Format 

5E14 .5 

E16.8,  416 
5E1 4 . 5 


E16.8,  416 


^ _ 


APPENDIX  C 

ORGANIZATION  OF  THE  GEOMETRIC  PORTIONS  OF  MASTER 

ARRAY  FOR  MAGIC 

The  MASTER  storage  array  has  a  complex  organization 
of  integer  and  floating  point  data.  The  integer  portions 
are,  in  general,  packed  three  items  per  word  and  fifteen 
bits  per  item. 

The  following  explains  the  construction  of  the  table. 
1.  RPP  DATA  DESCRIPTIONS 

Stored  six  words  per  RPP  beginning  at  LBASE 
(for  MAGIC,  LBASE  =  1  and  for  SAM-C,  LBASE  = 
LGEOM) .  Each  word  has  three  numbers. 

15  bits  15  bits  15  bits 

Fixed  point 

where  _I  is  the  number  of  RPP '  s  that  abut  this 
surface,  J  is  the  location  within  the  MASTER 
array  of  the  list  of  these  RPP ' s ,  K  is  the 
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Address  In  MASTER  (AIM)  where  the  floating 
point  number  corresponding  to  this  surface 
is  stored. 

2 .  RPP  DATA 


floating  point 


Full  word 

These  are  the  numbers  read  in  RPP  Data  cards 
and  referred  to  as  K  in  Item  1 . 

3.  BODY  DATA  DESCRIPTORS 

Each  body  data  descriptor  consists  of  two  com¬ 
puter  words.  Each  of  the  two  computer  words 
contains  three  integers  as  shown  below. 


15  bits 

15  bits 

15  bits 

Not 

used 

I 

J 

K 

Not 

used 

L 

M 

N 

Fixed  point 


where : 

I  is  the  number  of  possible  regions  to  be 
entered  when  entering  this  body. 

J  is  the  number  of  possible  regions  to  be 
entered  when  leaving  this  body. 

K  is  the  type  of  body  (0-8  for  RPP-ARB) 

L  AIM  of  a  list  of  T_ 

M  AIM  of  a  list  of  J 
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N  AIM  of  the  body  data  pointer  for  this  body 
(see  Item  4  below) 

Note  that  the  variable  LBODY  (in  Common)  is  the  AIM 
of  the  first  word  of  the  first  body  data  descriptor. 

4.  BODY  DATA  POINTERS 


This  information  is  referenced  by  N  in  Item  3 
and  is  of  variable  size  depending  on  the  type 
of  body.  Each  body  has  between  two  and  four 
parameters  and  they  are  stored  as  follows. 


15  bits 

15  bits 

15  bits 

Not  used 

I 

J 

K 

Not  used 

Not  used 

L 

Not  used 

I 

J 

K 

Not  used 

I 

J 

4  parameters 


3  parameters 
2  parameters 


In  all  cases  the  parameters  are  fixed  point  and 
are  AIM's  to  the  floating  point  data,  which  were 
originally  read  in  for  the  bodies. 

5.  REGION  DESCRIPTORS 


There  are  NRMAX  region  descriptors  of  one  computer 
word  each,  as  shown  below. 


15  bits .15  bits 


Not  used 


Fixed  point 
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where : 


I  is  the  number  of  bodies  in  the  region 
description . 

J  is  the  AIM  of  a  list  of  the  bodies. 

Note  that  LREGD  (in  Common)  is  the  AIM  of  the  first 
region  descriptor. 

6 .  BODY  DATA 

These  items  are  one  computer  word  in  length  and 
contain  the  floating  point  data  referred  to  in 
Item  4 . 

7 .  REGION  DATA 

Fixed  point 

These  are  the  body  numbers  referred  to  in  Item  5. 
I  is  an  operator  ,  or  OR)  converted  to  a 

numeric  code  between  1 ,  8 . 

J  is  the  actual  body  number.  These  data  are  from 
the  region  description  input. 

8.  ENTERING  AND  LEAVING  TABLES 

15  bits 

Fixed  point 

These  are  the  entering  and  leaving  tables  and  are 
referenced  by  IT  and  L  in  Item  4 . 
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9.  LRIN  is  the  AIM  of  a  table  where  the  code  will 
store  RIN  as  computed  to  each  body.  There  are 
NBODY  floating  point  words. 

10.  LROT  is  the  AIM  of  a  table  to  store  ROUT  as 
computed  for  each  body. There  are  NBODY  floating 
point  words. 

11.  LIO  is  the  AIM  of  a  table  where  the  code  will 
store  three  fixed  point  items  per  body,  as  shown. 


Fixed  point 


where : 

I  is  the  entering  surface  number. 

J  is  the  leaving  surface  number. 

K  is  the  index  of  or  ray  number. 

There  are  NBODY  words. 

12.  Region  ID  and  space  codes.  This  is  a  table  of 

NRMAX  fixed  point  words  whose  AIM  is  LIRFO  =  NDQ 
-10-NRMAX,  where  NDQ  is  the  size  of  the  MASTER 
array.  At  LIRFO  +  REGION  NO  -1  is  stored  the 
two  items  in  fixed  point  format 


Not  used 


I 


J 


Fixed  point 


where : 

I  is  the  region  ID. 

J  is  the  space  code  +  one . 
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APPENDIX  D 

ORGANIZATION  OF  THE  MASTER  ARRAY  FOR  SAM-C 

The  following  section  describes  the  organization  and 
contents  of  the  MASTER  storage  array.  The  capitalized  name 
in  the  upper  right-hand  corner  of  each  box  refers  to  a 
"pointer".  These  "pointers"  are  used  to  locate  sections  of 
data  with  a  minimum  of  calculation. 


Contents  Comments 


Calculated  by  BAND  and  read  in  from 
the  ODT  by  MONTE. 


LGEOM .  The  data  are  read  in  and 
stored  by  GENI . 


The  scores  are  accumulated  and  stored 
by  CARLO.  The  scores  are  stored  as 
a  function  of  energy  and  scoring 
region . 


This  section  of  the  array  contains 
region-dependent  parameters  stored 
two  computer  words  per  region.  The 
actual  data  are  discussed  in  the 
UNPR  section  of  this  report.  The 
data  are  read  in  and  stored  by  INPUTD. 


(1) 

Cross  section 
data 

LGEOM 

(2) 

Geometry  data 

LSCORE 

(3) 

Region  flux 
scores  for  each 
statistical 
aggregate 

LREGT 

(4) 

Region -dependent 
parameters 
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(5) 


(6) 


(7) 


(8) 


(9) 


(10) 


LNCOL 

Number  of  collisions 
per  region 


LBIRTH 

The  number  of 
births  per  region 


LDEATH 

The  number  of 
deaths  per 
region 


LESCAP 

The  number  of 
escapes  per 
region 


LNDEG 
The  number  of 
degrades  per 
region 


LNABS 
The  number  of 
absorptions  per 
region 


For  items  (5)  through  (10)  the  starting  locations  are 
computed  in  INPUTD.  The  counts  are  accumulated  in  CARLO 


and  are  printed  by  TALLY. 


(11) 


LSCF^P 

Flux-at-a-point 
for  all 
detectors 


The  scores  are  computed  by  CARLO. 
This  section  of  the  array  will  exist 
only  if  flux-at-a-point  detectors 
are  present  in  the  problem. 
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LRAW 

(12) 

Region  weights 

LREW 

(13) 

Region  energy 

weight  sets 

LAIM 

(14) 

Aiming  angles 

LAWS 

(15) 

Region  angular 

weight  sets 

KSOUR 

(16) 

Source  data 

LLAST 

(17) 

Latent  storage 

for  supergroups 

The  actual  region  weights  to  be 
used  for  region  importance.  The 
weights  are  read  in  by  INPUTD. 


The  energy  weight  sets  for  impor¬ 
tance  sampling.  This  section  exists 
if  energy  importance  is  used  in  the 
problem.  The  data  are  read  in  by 
INPUTD. 


The  aiming  angles  for  angular  im¬ 
portance.  Three  words  per  angle 
denoting  direction  cosines  are 
stored.  The  data  are  read  by  INPUTD. 
The  array  exists  only  if  angular 
importance  is  used. 


The  angular  weight  sets  for  angular 
importance.  The  array  exists  only 
if  angular  importance  is  used.  The 
data  are  read  by  INPUTD. 


The  energy,  position,  and  direction 
data  for  the  source  distribution. 
The  data  are  read  in  by  SOUCAL. 


This  section  uses  up  all  available 
room  in  the  MASTER  array.  Supergroup 
latents  are  stored  here.  Tapes  will 
be  used  for  latent  storage  if  the 
available  room  is  insufficient. 
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